Скачать: CL | DM;

Двойный клик мыша по 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 все равно вызывется, если он описан.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c