Пример программного нажатия на кнопку в Delphi
- Помещаем на форму следующие компоненты: 1 — Label, и 2 — компонента Button;
- В OnClick на Button2 записываем:
|
1 2 3 |
begin Label1.Caption:= 'Клавиша была нажата'; end; |
- В OnClick на Button1 пишем:
|
1 2 3 4 |
begin Button2.Perform(WM_LBUTTONDOWN, 0, 0); Button2.Perform(WM_LBUTTONUP, 0, 0); end; |
- Запускаем проект, жмем на Button1 и наблюдаем событие, прописанное в Button2;