Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз
Двойный клик мыша по 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
