Как разделить обработку OnClick и OnDblClick

Delphi , Компоненты и Классы , Свойства и События

Ведь OnClick будет вызываться всегда, и перед DblClick.

Именно так и происходит в Windows - посылаются оба сообщения. Для того чтобы обработать только какое-то одно событие необходимо чуть " задержать" выполнение OnClick. Сделать это можно следующим способом:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Msg: TMsg;
  TargetTime: Longint;
begin
  { get the maximum time to wait for a double-click message }
  TargetTime := GetTickCount + GetDoubleClickTime;
  { cycle until DblClick received or wait time run out }
  while GetTickCount <  TargetTime do
    if PeekMessage(Msg, ListBox1.Handle, WM_LBUTTONDBLCLK,
    WM_LBUTTONDBLCLK, WM_NOREMOVE)
    then Exit; { Double click }
  MessageDlg('Single clicked', mtInformation, [mbOK], 0);
end;

Для обработки только одного из событий OnClick и OnDblClick в Delphi необходимо использовать цикл ожидания, который будет выполняться до тех пор, пока не будет получено событие DblClick или не истечет задержка времени.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Свойства и События ::