MouseDown vs DblClick

[Evil-Racer]

Есть изображение (xImg) у него есть событие MouseDown, где происходит

procedure TMain.xImg_MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    TImage(Sender).BeginDrag(False);
end;

Так же у изображения есть ивент DblClick, где происходит неважно-какой код.

Суть проблемы, мне надо вызвать только даблклик. Я дважды щелкаю по изображению, запускается MouseDown, начинается драг, затем запускается DblClick, делается что надо. DblClick завершается, а вот курсор переходит в состояние, будто он до сих пор делает драг. И никак не убить его (насильственный EndDrag не помогает).

Вопрос, как в MouseDown отловить ивент даблклика так, чтоб не испортить нормальноработающее BeginDrag, и вслучае удачной ловли запустить вместо драга даблклик?

[Аватар]

Думаю это не нормально (если не сказать дурдом) вешать одновременно обработчики на OnMouseDown и двойной клик. А копать скорее всего замером времени на первом Down, ожиданием в течение определенного времени второго Down и разрулировать в зависимости от ситуации. Время ожидания можно из SystemParametersInfo узнать

[Evil-Racer]

Без этой камасутры никак...
Нашел на инглишфоруме такое

type
 TFrmMain = class(TForm)
 ...
 private
 DoubleClicked: Boolean;
 end;

procedure TFrmMain.ControlClick(Sender: TObject);
 begin
 Application.ProcessMessages;
 if DoubleClicked then begin
 DoubleClicked := false;
 Exit;
 end;

 ...{your code}

end;

procedure TFrmMain.ControlDblClick(Sender: TObject);
 begin
 DoubleClicked := True;

 ...{your code}

end;

Адаптировал под себя - работает =)

[Аватар]

Это гарантировано не всегда сработает. Зависит от скорости двойного клика, от настройки максимального времени между ними. Ожидайте проблем