Нажимаем программно на кнопку

Рассмотрим пример программного нажатия на кнопку.

Для этого:



1) Помещаем на форму следующие компоненты: 1 - Label, и 2 - компонента Button;

2) В OnClick на Button2 записываем:

 begin 
 Label1.Caption:='Клавиша была нажата'; 
 end;

 3) В OnClick на Button1 пишем:

 begin 
 Button2.Perform(WM_LBUTTONDOWN, 0, 0); 
 Button2.Perform(WM_LBUTTONUP, 0, 0); 
 end; 

 4) Запускаем проект, жмем на Button1 и наблюдаем событие, прописанное в Button2;