Delphi: Parlayan Form - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphi: Parlayan Form
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2008-12-07
Puan: 10   Puan:10 | Katılımcı:1 | Katılımcı : 1
Okunma: 3063
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

unit Unit1;

{ Öncelikle forma bir timer eklemek gerekiyor }

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{ Her timer döngüsünde parla }
FlashWindow (Handle, True) ;
end;

end.




Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.