как сделать мигание надписи на кнопке

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

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

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

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