Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Действия клавиатуры как мыши

Автор: Ivan Ryzhakov 4.7.2004, 12:26

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

Автор: p0s0l 4.7.2004, 14:34

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

Код

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

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