VPF::Действия клавиатуры как мыши - Форум программистов

Ivan Ryzhakov

Дата 4.7.2004, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.7.2004

Репутация: нет
Всего: нет

Может не очень понятно написал, а требуется вот что. К примеру, у меня за каким-нибудь button'ом закреплена клавиша с клавиатуры, при нажатии на которую не только выполняется действие с этим button'ом, но и происходит визуализация этого действия, как будто кликнули мышкой.

p0s0l

Дата 4.7.2004, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Если я правильно понял:

Код

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  if Button2.Tag <> 0 then Exit;
  Button2.Tag := 1;
  Button2.Perform(WM_LBUTTONDOWN, MK_LBUTTON, 0);
  Application.ProcessMessages;
  Sleep (300);
  Button2.Perform(WM_LBUTTONUP, 0, 0);
  Button2.Tag := 0;

...  твои действия
end;

Только изначально Button2.Tag д.б. = 0. Если Tag у тебя используется в других целях, то вместо Button2.Tag подставь какую-нибудь переменную...

--------------------

С уважением, г-н Посол.

Ivan Ryzhakov

Дата 5.7.2004, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.7.2004

Репутация: нет
Всего: нет

Большое спасибо. Весь семестр искал, преподавателю требовалось, а он и сам не знал как это сделать. Да и вообще красиво. Буду в своих прогах использовать. adv/168.gif

Это сообщение отредактировал(а) Ivan Ryzhakov - 5.7.2004, 00:41

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »