Двойный клик мыша по Button у

← →
Сергунчик (2003-10-04 23:17) [0]

Доброго времени суток.
У меня такая проблема:
Мне нужно чтобы по двойному клику мышки на Бутоне, происходило определнное действо. А в методах для Button есть только OnClick.
Заранее благодарен за помощь

← →
Е-Моё имя (2003-10-05 02:03) [1]

Удалено модератором

← →
Endi (2003-10-05 13:09) [2]

Попробуй вот это:

procedure TForm1.Button1Click(Sender: TObject);
begin
if FirstClick=0 then begin
FirstClick:=Now;
Exit;
end;
SecondClick:=Now;
if SecondClick-FirstClick<(GetDoubleClickTime/1000)*0.00001157 then showMessage("OK");
FirstClick:=0;
SecondClick:=0;
end;

← →
Сергунчик (2003-10-06 23:47) [3]

Рушается на FirstClick и SecondClick

← →
Palladin (2003-10-07 00:07) [4]

да ну... не может быть... эти переменные испокон веков были встроены в паскаль... бытует мнение, что еще Хейльсберг, когда их встраивала, подумывал, "Вот, доброе дело Сергунчику сделаю"...

← →
Endi (2003-10-07 00:15) [5]

Что значит ругается, у меня все прекрасно работает. Упс, забыл написать вот, что еще.

FirstClick, SecondClick:TDateTime;

← →
Германн (2003-10-07 02:37) [6]

2 Сергунчик
Даже если сообразишь, как использовать совет Endi - помни, что OnClick все равно вызывется, если он описан.

Двойный клик мыша по Button у Найти похожие ветки