Подписаться на RSS рассылку
Главная » Статьи по Delphi » Компоненты » Программно нажать на кнопку

Программно нажать на кнопку

Автор: Борисов Сергей

На форму выкладываем две кнопки.

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Тест');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Perform(WM_LBUTTONDOWN, 0, 0);
Button2.Perform(WM_LBUTTONUP, 0, 0);
end;

Просмотров: 14482

Обсудить на форуме

0   Спам
(24.06.2011)
3. unknownproject
Самый простой способ программно нажать кнопку - по таймеру:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
button1.click ;
end;

Меня в OI Интервал таймера, компилируем и вперед ((=

0   Спам
(01.03.2011)
2. Илья
не, чё то не работает.......................

0   Спам
(11.11.2009)
1. Антон (Digy)
А если нужно просто выполнить тоже самое, что и при нажатии на кнопку, тогда можно сделать так:
"form1.Button1.Click;"
и это будет работать.


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта