Скачать: CL | DM;

Как сделать мигание формы в свернутом виде?   Найти похожие ветки 

← →
kingdom ©   (2002-02-14 16:44) [0]

Subj

---

← →
kingdom ©   (2002-02-14 18:32) [1]

Что никто не знает?

---

← →
Val ©   (2002-02-14 18:50) [2]

из форума....
var
Flash : bool;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form1.Handle, Flash);
FlashWindow(Application.Handle, Flash);
Flash := not Flash;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Flash := False;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c