Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Борода какая-то с таймером / 3 сообщений из 3, страница 1 из 1
30.09.2003, 20:11
    #32280056
Lamerok
Lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борода какая-то с таймером
procedure TForm1.Timer1Timer(Sender: TObject);
var a:integer;
begin
if a=0 then
begin
Button.Font.Color:=clblack;
a:=1;
end
else
begin
Button.Font.Color:=clred;
a:=0;
end;
end;

Кнопочка Button не моргает так, как я задумал, точнее она вообще никак не моргает....А в стареньком школьном бейсике моргала...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 20:55
    #32280075
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борода какая-то с таймером
1. У Buttona цвет фонта ты не поменяешь просто так.

2. И вообще var a:Integer у тебя не статик.

3. Рабочий вариант
Код: plaintext
1.
2.
3.
4.
5.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := (Timer1.Tag+ 1 )mod  2 ;
  Panel1.Font.Color := (Timer1.Tag mod  2 )*clRed + ((Timer1.Tag+ 1 )mod  2 )*clBlack;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 21:09
    #32280079
Lamerok
Lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борода какая-то с таймером
Заработало!!!
Правда мой (первый) вариант. Достаточно было переменную a объявить в глобальных переменых...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Борода какая-то с таймером / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]