[Snake22]

подскажите как отловить?
есть Image, надо сделать ему два события, onClick и OnDblClick, но перед двойным нажатием происходит Клик и ничего не получается.
Желательно код в пример привести,а то погуглил, многие пишут таймером ,или Shift на Mousedown смотреть,но конкретного примера нигде не нашел.

[angvelem]

И не найдёшь, DblClick является продолжением Click.

[Snake22]

Сообщение от angvelem

И не найдёшь, DblClick является продолжением Click.

но ведь кактож делают этот дабл клик!

[angvelem]

Конечно, но при этом про клик забывают. Есть конечно выход, заведи переменную, взводи по клику и сбрасывай по дблклику. Остальное додумаешь?

[Snake22]

Сообщение от 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;

[angvelem]

Без выкрутас: