Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как сделать мерцающую надпись?   Найти похожие ветки 

← →
Intell ©   (2003-03-07 06:15) [0]

Как сделать надпись (любого компонента), которая будет мерцать. Т.е. не сам компонент, а Font.Color.

---

← →
OlegM ©   (2003-03-07 06:50) [1]

С button пробовал непроходит а с другими вроде

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Font.Color=clWindowText then
edit1.Font.Color:=clRed
else
edit1.Font.Color:=clWindowText
end;

---

← →
Intell ©   (2003-03-07 11:32) [2]

Спасибо OlegM, выручил!

---

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

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c