Während Laden/Speichern Sanduhr setzen ?

[madina]

Hallo an alle,

Wie konnte ich während Laden/Speichern eines TClientDataSet im THauptForm den Courser auf Sanduhr setzen und zurück zum Normalen so daß alle weitere Bedienungen des währends am Programm gesperrt bleibt.

mfg

[TeronG]

Here U are

Delphi-Quellcode:

Form1.Cursor := crHourGlass; // Sanduhr AN
// Laden/Speichern/odersonnstwas
Form1.Cursor := crDefault; // Maus auf "normal"

[dataspider]

Hi,

empfehle noch try finally...

Delphi-Quellcode:

Screen.Cursor := crHourGlass;
try
  // Laden/Speichern/odersonnstwas 
  Application.ProcessMessages;
finally
  // bei Exception soll die Sanduhr trotzdem verschwinden
  Screen.Cursor := crDefault;
end;

Cu, Frank

[H4ndy]

Zitat von madina:

...alle weitere Bedienungen des währends am Programm gesperrt bleibt.

Um die Benutzung deines Programms komplett zu verhindern,
musste du noch vom Formular die Eigenschaft "Enabled" auf false setzen.
(Damit wird alles inkl. Minimieren, Schließen, etc. unterbunden!)

Hier das obige Beispiel noch verbessert:

Delphi-Quellcode:

Screen.Cursor := crHourGlass;
Form1.Enabled := false; // Form1 durch deinen Formularnamen ersetzen
try
  // Laden/Speichern/odersonnstwas
  Application.ProcessMessages;
finally
  // bei Exception soll die Sanduhr trotzdem verschwinden (und das Formular wieder benutzbar werden)
  Screen.Cursor := crDefault;
  Form1.Enabled := true;
end;

Schöner wäre natürlich eine Prozedur, welche nur bei den kritischen Controls Enabled auf false setzt.
(z.B. procedure BlockControls(EnableControls: boolean); )

[Khabarakh]

Zitat von H4ndy:

// Form1 durch deinen Formularnamen ersetzen

Lieber gleich ganz weglassen .

Delphi-Quellcode:

// Wir wollen der OOP doch nicht von hinten durch die Brust stechen
Enabled := false;

[TeronG]

Und wer Postet jetzt die Zusammenfassung? (NEIN! Ich nicht!!)

[tomsel]

Zitat von TeronG:

Und wer Postet jetzt die Zusammenfassung? (NEIN! Ich nicht!!)

madina