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

как сделать мигание надписи на кнопке   Найти похожие ветки 

← →
chelLexa   (2006-02-17 15:29) [0]

как сделать мигание надписи на кнопке, чтобы надпись переливалась разными цветами.

---

← →
Desdechado ©   (2006-02-17 16:25) [1]

простейший и, видимо, не самый лучший - по таймеру менять цвет шрифта

но я такими вещами не озадачивался

---

← →
Гаврила ©   (2006-02-17 18:01) [2]

> Desdechado ©  

Бесполезно
изменение цвета шрифта на кнопке не имеет результата

---

← →
Eraser ©   (2006-02-17 18:03) [3]

> Гаврила ©   (17.02.06 18:01) [2]


> изменение цвета шрифта на кнопке не имеет результата

эт смотря на какой кнопке :)

---

← →
Саунд   (2006-02-17 18:12) [4]

chelLexa   (17.02.06 15:29)
Используй TPanel вместо кнопки %)

---

← →
mozgan   (2006-02-17 21:40) [5]

Ну, подобная работа была....была...

Поделюсь кодом, держи.
Все же, толпа права, лучше использовать панель.
А так все работает, но тнбн брат вмднее.

procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
begin
 randomize;
 i:=random(3)+1;
 case i of
 1: begin panel1.Color:=clRed; end;
 2: begin panel1.Color:=clOlive; end;
 3: begin panel1.Color:=clGreen; end;
 end;
end;

//врубим таймер
procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

//вырубим таймер
procedure TForm1.Button2Click(Sender: TObject);
begin
 timer1.Enabled:=false;
end;

---

← →
Desdechado ©   (2006-02-17 22:38) [6]

randomize; достаточно вызвать однажды - при старте программы

---

← →
Eraser ©   (2006-02-17 23:21) [7]

ужжос...
10 версия Делфи уже вышла, а компонент TBitBtn так и остался засекреченым..

---

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

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



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