Форум: "Основная";
Текущий архив: 2003.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
Геннадий   (2003-11-30 07:32) [8]

А можно и так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Form1.Color= Random(TColor);

end;


---

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

Форум: "Основная";
Текущий архив: 2003.12.09;
Скачать: [xml.tar.bz2];

Наверх

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