User klicken unterbinden während Querry läuft

[Jumpy]

Hallo zusammen,

ich habe ein Form wo in einem Memofeld ein SQL-Statement geschrieben werden kann, und das dann auf Knopfdruck ausgeführt wird indem es an eine TADOQuerry übergeben wird. Die Daten werden dann in einem DBGrid angezeigt. Funktioniert alles soweit ganz gut.

Es gibt aber Selects, die ganz schön lange laufen, unter Umständen Minuten. Ich möchte verhindern, dass der User in der Zeit wild auf dem Form rumklickt.

Z.Zt. ist es so, dass der User auf irgendwelche Buttons klicken kann, aber nichts passiert, während die Querry läuft. Aber danach werden alle diese Klicks mit Verspätung ausgeführt. Das möchte ich aber so nicht. Es soll auf keinen Klick reagiert werden, der geschieht, während die Querry läuft.

Ich hab schon versucht die ActionList auf asSuspended zu setzen und später dann auf asNormal zurück aber das Hilft nicht. Vllt. hab ich es aber auch an falscher Stelle getan?

Quelle ist die TADOQuerry:

Code:

Quelle.SQL.Clear;
Quelle.SQL.Text:= Memo1.Lines.Text;
  try
    ActionList1.State:= asSuspendedEnabled;
    Quelle.Open;
    Application.ProcessMessages;
    ActionList1.State:= asNormal;

Hat wer eine Idee, warum das nicht klappt?

Danke,
Jumpy

[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.

[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.