Mehrfachklick auf Schaltfläche Problem

[weisswe]

Hallo!

Ich habe das Problem das bei meiner FMX Anwendung (Windows).
Habe mehrere dynamisch erzeugte TCornerButton's, die Datenbankoperationen durchführen.
Nun ist es so, das ein Kunde auf diese Schaltfläche doppelt oder sogar mehrfach klickt.
Das heisst die Befehle "hinter" den Buttons werden auch mehrfach ausgeführt.
Ist auch logisch - NUR setzte ich zu Beginn immer Button.Enabled = FALSE um eben dies zu verhindern.
Es sieht also so aus as wäre die UI [FMX] zu langsam. Lösung -> ProcessMessages -> was ich auf keinen Fall verwenden will.
Natürlich könnte ich globale Vars setzten, aber ist auch keine "schöne" Lösung.

Wie macht ihr das bei euren Projekten??

PS: Ich bin auch noch nie auf die Idee gekommen auf eine Schaltfläche mehrfach zu drücken! :?

[Uwe Raabe]

Lies doch mal hier nach: Controls sofort aktualisieren ohne ProcessMessages

[Sir Rufo]

Der Kern des Problems liegt hier

Delphi-Quellcode:

procedure TMyForm.Button1Click( Sender: TObject );
begin
  Button1.Enabled := false;
  // Irgendwas ausführen, was ein klein wenig dauert
  Button1.Enabled := true;
end;

In der Zeit, wo diese Ausführung läuft ist der UI-Thread gesperrt, bzw. beschäftigt und alle auftretenden Aktionen (Klick auf einen Button, Eingabe von Text) werden nicht abgearbeitet. Diese laufen aber in eine Message-Queue und werden abgearbeitet sobald der UI-Thread wieder Zeit hat.

Und da zu diesem Zeitpunkt der Button wieder aktiv ist, wird auch brav der Button-Klick ausgeführt ;)

Darum sollten alle Aktionen, die länger als 50 Millisekunden dauern, in einen Thread ausgelagert werden.

[weisswe]

Danke für eure Antworten.
Hab's verstanden.
Wundere mich nur wie mache Benutzer arbeiten.
Hab das vorher getestet - aber bin nie auf die Idee gekommen, das man auf eine Schaltfläche mehrfach klicken sollte.. :lol:
Wieder was gelernt - und - würde das as TRY UI - USER EXCEPTION bezeichnen.. :stupid: