Mauszeiger setzen

[khh]

Hallo zusammen,
ich rufe per Button-Click von einem Form aus ein weiteres Form auf.
Je nach dem (DB-Verbindung etc.) dauert das mehr oder minder lang.
Deshalb setze ich den Mauszeiger beim Klick auf den Button per:
Screen.Cursor := crHourGlass;
und nach Erstellen des Form per:
Screen.Cursor := crDefault;
wieder zurück.

Gibts da nicht ne einfachere Möglichkeit, die Sanduhr solange anzuzeigen bis das Form vollständig geladen ist?

danke Gruss KH

[DeddyH]

Einfacher als 2 Zeilen Quellcode?

[himitsu]

eigentlich geht das so schon OK.

Wenn die Form nicht blockiert ist, dann könntest du stattdessen Form.Cursor entsprechend ändern.
Aber aufpassen, alle draufbefindlichen Komponenten, welche nicht auf crDefault stehen, zeigen dann ihren eigenen Cursor an (falls du diesen nicht auch noch änderst).

PS: es gibt auch noch den delphieigenen crSQLWait

[khh]

Zitat von DeddyH:

Einfacher als 2 Zeilen Quellcode?

naja

[khh]

Zitat von himitsu:

eigentlich geht das so schon OK.

Wenn die Form nicht blockiert ist, dann könntest du stattdessen Form.Cursor entsprechend ändern.
Aber aufpassen, alle draufbefindlichen Komponenten, welche nicht auf crDefault stehen, zeigen dann ihren eigenen Cursor an (falls du diesen nicht auch noch änderst).

PS: es gibt auch noch den delphieigenen crSQLWait

gibts den auch bei Lazarus?


Gruss KH