|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.09.2017, 20:03 | #1 (permalink) |
Member
Регистрация: 07.11.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 6 раз(а) в 1 сообщении
Репутация: 585
|
Двигающиеся кнопочки в Lazarus
Вот такой вот у меня код получился... В Enabled y Timer стоит False Код:
procedure TForm1.Button1Click(Sender: TObject); begin Button1.Left:=Button1.Left + 10; Timer1.Enabled:=true; Timer1.Enabled:=not Timer1.Enabled if Timer1.Enabled then Button2.Caption:='Стоп' else Button2.Caption:='Пуск'; end;
__________________
Хакер - это тот, кто даже в закрытом сарае может наступить на грабли |
12.09.2017, 20:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочитайте похожие темы, это не сложно Матрицы в Lazarus Строки в Lazarus Lazarus и PostgreSQL Lazarus выдает ошибку Кнопочки... |
12.09.2017, 23:30 | #2 (permalink) |
Member
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,708
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
|
Что таймер отрабатывает? Не совсем ясно, что должно происходить...
По нажатии Button1 та сдвигается на 10 пикселей вправо. Это понятно. Какой обработчик нажатия Button2?
__________________
Одна голова - хорошо, а три - сквозной канал!© |
12.09.2017, 23:35 | #3 (permalink) |
Member
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,708
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
|
Если кнопка должна двигаться непрерывно, то одним нажатием кнопки она будет сдвигаться только на 10.
__________________
Одна голова - хорошо, а три - сквозной канал!© |
13.09.2017, 00:13 | #4 (permalink) |
Member
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,708
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
|
procedure TForm1.Button1Click(Sender: TObject);
begin Timer1.Enabled:=not Timer1.Enabled; case Timer1.Enabled of True: Button1.Caption:='Стоп'; False: Button1.Caption:='Старт'; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Button2.Left:=Button2.Left+10; end;
__________________
Одна голова - хорошо, а три - сквозной канал!© |
13.09.2017, 06:34 | #5 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin if Button2.left<Form1.width-Button2.width then Button2.Left:=Button2.Left+10; end;
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|