TImage Doppelklick bei gesetzten OnClick Event

[nuclearping]

Du brauchst eine Zeitmessung, wo entschieden wird, ob es Doppel- oder Einfachklick ist. Damit du nicht dafür einen TTimer vergewaltigst, kannst du hier auch zB mit GetTickCount arbeiten. Du speicherst den TickCount beim OnClick und schaust beim nächsten OnClick, ob dieser innerhalb von zB 200ms liegt. Wenn ja, ist es ein Doppelklick.

Delphi-Quellcode:

var
  StartTicks, CurTicks, PassedMs: Cardinal;
begin
  StartTicks := GetTickCount;
  repeat
    CurTicks := GetTickCount;
    PassedMs := CurTicks - StartTicks;
    WriteLn(PassedMs, 'ms');
    Sleep(100);
  until FALSE;
end;