HAllo
ich habe ien Problem, das mir auf einigen Rechner kein Doppelklick angenommen wird, es scheint so als ob bei diesen Computern zyklisch öfters MouseMove Messages kommen, dadurch passiert es das es teils länger als 100ms dauert das nach dem ersten MouseDown/MouseUp ein MouseMove kommt - obwohl die Maus 100% stillgehalten wurde.
Ich habe nun mal temporär in der procedure TWPCustomRtfEdit.Click;
Code
while not Ignore and (GetTickCount < tim) and not isDblClick do
begin
if PeekMessage(Msg, Handle, WM_KEYFIRST, WM_KEYLAST, PM_NOREMOVE)
//or PeekMessage(Msg, Handle, WM_MOUSEMOVE, WM_MOUSEMOVE, PM_NOREMOVE)
then
Ignore := TRUE
else if GetAsyncKeyState(FVKLeftMouseButton) < 0 then
begin
isDblClick := TRUE;
break;
end;
end;
Alles anzeigen
abgeändert damit es mal funktioniert .... gibt es da einen besseren weg?