User klicken unterbinden während Querry läuft

[gsh]

Form1.Enabled := false;
und danach wieder auf true

[GHorn]

... und dazu dann noch den Cursor auf crSQLWait oder crHourGlass setzen und anschließend wieder zurück.
Dann sieht der Anwender gleich, dass er warten soll.

[Luckie]

Ich würde nicht das ganze Form deakivieren, sondern nur die Schaltfläche.

[Jumpy]

Danke erstmal. Das Problem ist halt, dass es massig andere Buttons auf dem Form gibt, und ich nicht 20 mal ButtonXY.Enabled im Code haben will. Daher mein versuch über die ActionList. Versuch jetzt mal den Vorschlag mit dem Form.Enabled.

Jumpy

[Luckie]

Das dürfte aber dazu führen, dass die Form nicht mehr reagiert und der Benutzer denkt das Programm wäre abgestürzt.

[Jumpy]

Nee das hat schon gepasst, da ich hinterher ja Enabled wieder auf true setze. Aber es hat nix gebracht. Wie zuvor kann man wild auf Buttons klicken, ohne das zunächst was passiert, aber wenn die Querry dann fertig geöffnet ist und ein Ergebnis zurückgebracht hat, passiert alles, was nach drücken der Buttons geschehen sollte.

Was den Eindruck des Absturzes angeht, so ist das ja genrell ein Problem, da ja wie geschildert nix passiert, während die Querry läuft und jeder Knopfdruck scheinbar ignoriert wird, so dass ein User denken könnte, das Prog. wäre abgestürzt. Aber damit muss man bei langen Abfragen halt leben. Was halt nur stört ist, das evtl. Buttonklicks während der "Todzeit" des Progs trotzdem irgendwie registriert und dann anschließend ausgeführt werden.

Weitere Ideen gerne willkommen. Vllt. ist ja wirklich der Zeitpunkt bzw. das Ereignis wichtig, bei dem alles wieder aktiviert wird.

Jumpy

[DeddyH]

Erst disablen, dann Abfrage ausführen, dann wieder enablen. Sonst laufen die Clicks und sonstigen Aktionen in der Botschaftswarteschlange auf.

[gsh]

Zitat von Jumpy:

Nee das hat schon gepasst, da ich hinterher ja Enabled wieder auf true setze. Aber es hat nix gebracht. Wie zuvor kann man wild auf Buttons klicken, ohne das zunächst was passiert, aber wenn die Querry dann fertig geöffnet ist und ein Ergebnis zurückgebracht hat, passiert alles, was nach drücken der Buttons geschehen sollte.

Was den Eindruck des Absturzes angeht, so ist das ja genrell ein Problem, da ja wie geschildert nix passiert, während die Querry läuft und jeder Knopfdruck scheinbar ignoriert wird, so dass ein User denken könnte, das Prog. wäre abgestürzt. Aber damit muss man bei langen Abfragen halt leben. Was halt nur stört ist, das evtl. Buttonklicks während der "Todzeit" des Progs trotzdem irgendwie registriert und dann anschließend ausgeführt werden.

Weitere Ideen gerne willkommen. Vllt. ist ja wirklich der Zeitpunkt bzw. das Ereignis wichtig, bei dem alles wieder aktiviert wird.

Jumpy

Mach mal ein Application.ProzessMessages; bevor du das Form wieder aktivierst. Schöner wäre es das ganze in einen Thread auszulagern.

[mz23]

Hallo Jumpy,

Zitat von Jumpy:

Danke erstmal. Das Problem ist halt, dass es massig andere Buttons auf dem Form gibt, und ich nicht 20 mal ButtonXY.Enabled im Code haben will. Daher mein versuch über die ActionList. Versuch jetzt mal den Vorschlag mit dem Form.Enabled.

Jumpy

Du kannst eine for-Schleife über alle Objekte machen,
die TButtons (bzw. TCheckBoxes oder TRadioButtons oder
TEdits) sind und diese dann Enabled:=False setzen.

So hast Du nur eine Schleife, die du auch nicht bearbeiten
mußt, wenn Buttons wegfallen bzw. hinzukommen sollten)

Das crHourGlas und crDefault setzen ist ein guter Tipp
von einem anderen Antworter hier. Allerdings genügt ein
nur setzen nicht ohne ein UpDate bzw. Refresh und danach ein
kurzes Sleep() einzufügen.

Alles klar,
MfG Manfred Zenns

PS: Ich gebe hier nur "meine" Erfahrungen mit Delphi wieder.

Oops:
Ist mir noch was eingefallen.
Bevor du die Action startest, setze ein Form-großes TPanel
(über alle Objekte) mit Text, was nun läuft.

Erhalten dann die Objekte in deinem Form Änderungen,
und sind diese abgeschlossen (!?!) entferne das Panel
über Visible wieder.

Alle Klicks in der Zwischenzeit hat dann das Panel
abgefangen.

Aber ich gebe dir recht, es muß eine elegantere Lösung
geben.

[Sir Rufo]

So müsste es eigentlich funktionieren:

Delphi-Quellcode:

ActionList1.Enabled := False;
Application.ProcessMessages;  // evtl. Unnötig
try
  // jetzt das ganze Geraffel ausführen
finally
  Application.ProcessMessages;
  ActionList1.Enabled := True;
end;