динамическое зменение цвета формы

← →
ami (2003-11-26 22:01) [0]

Как заставить форму менять цвет через определённый интервал времени?

← →
Vlad © (2003-11-26 22:07) [1]

Есть такой компонент, TTimer называется.
Изучи как он работает, думаю дальнейшие вопросы отпадут.

← →
mfender © (2003-11-26 23:23) [2]

Там все в милисекундах... Смотри, часто цвет не меняй.

← →
ami (2003-11-27 21:33) [3]

Про компонент TTimer я знаю, уже изучила :)
Однако вопросы не отпадают.
Смотрите сюда:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Color:=clBlue;
end;
//интервал 1000 мс.
Так вот, на синий он меняет, а обратно нет.

WHY???

← →
Stilgar © (2003-11-27 21:37) [4]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not form1.Color=clBlue then
form1.Color:=clBlue
else
form1.Color:=clButtonFace;
end;

← →
dataMaster © (2003-11-27 21:40) [5]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.Color=clBlue then
Form1.Color:=clRed
else Form1.Color:=clBlue;
end;

← →
ami (2003-11-29 20:13) [6]

Второй вариант работает, первый нет, но всё равно, всем СПАСИБО!

← →
Mr.Nobody (2003-11-29 22:42) [7]

ох уж эти женщины... :) прямо анекдот получился...

А можно и так:
procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Color= Random(TColor); end;

динамическое зменение цвета формы Найти похожие ветки