Dieses Problem hatte ich vor Jahren mal mit Komponemten von KsDev (ThemeEngine, SkinEngine).
Es war nur lösbar mit Hilfe einer boolschen Zwischen-Variablen, die beim ersten Auslösen gesetzt wird und wenn gesetzt, der Klick nicht ausgeführt wird und sie zurück gesetzt wird.
Beispiel:
Delphi-Quellcode:
var isClicked: Boolean = False;
procedure IrgendwasDoubleClick(Sender: TObject);
begin
if isClicked then begin
isClicked := False;
Exit;
end else begin
isClicked := True;
// jetzt was tun
end;
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
