Цитата:
|
Сообщение от angvelem
но при этом про клик забывают.
|
ага,а какже в винде клик по ярлычкам реализован?одинарный - выделить,двойной - открыть.
сделал следующую причуду:
прадва думаю это плохой вариант,потому что при одинарном клике словно тормознутось возникает небольшая,хотя наверное если юзер не знает о таймере то эту тормознутось не заметит))
интревал таймера поставил 200
Код:
var
i:Integer=0;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
if i>1 then ShowMessage('двойной')
else ShowMessage('одинарный');
i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(i);
Timer1.Enabled:=True;
end;