Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

chelLexa © (2006-02-17 15:29:00)
как сделать мигание надписи на кнопке, чтобы надпись переливалась разными цветами.

Eraser (2006-02-17 23:21:00) [1]
ужжос...
10 версия Делфи уже вышла, а компонент TBitBtn так и остался засекреченым..

Desdechado (2006-02-17 22:38:00) [2]
randomize; достаточно вызвать однажды - при старте программы

mozgan (2006-02-17 21:40:00) [3]
Ну, подобная работа была....была...

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

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;

Саунд (2006-02-17 18:12:00) [4]
chelLexa (17.02.06 15:29)
Используй TPanel вместо кнопки %)

Eraser (2006-02-17 18:03:00) [5]

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

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

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

Гаврила (2006-02-17 18:01:00) [6]

> Desdechado ©

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

Desdechado (2006-02-17 16:25:00) [7]
простейший и, видимо, не самый лучший - по таймеру менять цвет шрифта

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »