Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;

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

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

Порядок вывода комментариев:

Спам
(24.06.2011)

3. unknownproject

Самый простой способ программно нажать кнопку - по таймеру:

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

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

Спам
(01.03.2011)

2. Илья

не, чё то не работает.......................

Спам
(11.11.2009)

1. Антон (Digy)

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