Screen.Cursor und Form.enable


Manchmal möchte man dem Benutzer wärend langwieriger Berechnungen eine Rückmeldung über den Mauszeiger (Stichwort: Sanduhr) geben. Leider führen die beiden einfachen Zeilen

  Screen.Cursor := crHourglass;
  Form1.enabled := false;

nicht zum Erfolg. Der Mauszeiger wird aus irgendeinem Grund nach dem Sperren des Formulars automatisch auf den Standard-Mauszeiger zurückgesetzt. Einzige Lösung ist, nicht das ganze Formular zu blockieren, sondern nur eine darauf befindliche Komponente. Man kann z.B. alle Komponenten des Fensters auf ein TPanel setzen und dieses auf enabled := false setzen.

Delphi 1 Delphi 2 Delphi 3 Delphi 4
nicht getestet Version nicht betroffen getestet

siehe auch:


Delphi FAQ