Программно нажать на клавишу - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Главная » Статьи » Delphi » Примеры на Delphi7

Программно нажать на клавишу

Программно нажать на кнопку Button в Delphi. Нажатие кнопки Button2 осуществляется при нажатии кнопки Button1. procedure TForm1.Button1Click(Sender: TObject); begin Button2.Perform(WM_LBUTTONDOWN, 0, 0); Button2.Perform(WM_LBUTTONUP, 0, 0); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('Вы нажали на второую кнопочку)))!'); end;
1 2 3 4 5 Категория: Примеры на Delphi7 \| Добавил: DelphiAiX (20.03.2011)
Просмотров: 2253 \| Рейтинг: 5.0/1

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума