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

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

Форум программистов > Delphi: Общие вопросы > Нажитие одновременно две кнопки мыши

Автор: CaNIBaLchik 2.3.2006, 12:19

САБЖик

Автор: Guedda 2.3.2006, 12:25

Лови сообщения WM_LBUTTONDOWN и WM_RBUTTONDOWN

Автор: Snowy 2.3.2006, 12:31

Код

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (ssLeft in Shift) and (ssRight in Shift) then
    ShowMessage('Ты жмешь обе кнопы!');
end;

Добавлено @ 12:32

Цитата(Guedda @ 2.3.2006, 12:25

)

Лови сообщения WM_LBUTTONDOWN и WM_RBUTTONDOWN

А смысл? Они все равно не приходят одновременно.

Автор: CaNIBaLchik 2.3.2006, 12:33

круто!