IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Görev Çubuğunda Uygulama Butonu Üzerinde Kayan Yazı

Görev Çubuğunda Uygulama Butonu Üzerinde Kayan Yazı

Kod:

/hepimizin bildiği WinAmp uygulamasında olduğu gibi, projemizi çalıştırdığımızda

//Windows Görev Çubuğu'nda görünen uygulama butonunun üzerinde akan yazı görülür.
 

//AppTitle.pas dosyası

unit AppTitle;
 

interface
 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;
 

type

TForm1 = class(TForm)

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
 

var

Form1: TForm1;

a: string;
 

implementation
 

{$R *.dfm}
 

procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1.Interval:= 250;

a:= 'Akan Yazı Deneme Uygulaması ... '+ '[ ' + Form1.Caption + ' ] ';

end;
 

procedure TForm1.Timer1Timer(Sender: TObject);

var i: integer;

begin

Application.Title:= a;

for i:= 1 to (Length(a) - 1) do a[i]:= Application.Title[i + 1];

a[Length(a)]:= Application.Title[1];

end;
 

end.
 

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.