Hi,

ich habe in meinem Programm eine aufwendige Procedure laufen und möchte, dass das Formular während der Laufzeit der Procedure deaktiviert ist und die Maus als Sanduhr dargestellt wird. Doch leider wird aus dem Zeiger keine Sanduhr. Was mache ich falsch?
Hier der vereinfachte Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Cursor:=crHourGlass;
  Form1.Enabled:=false;
  Application.ProcessMessages;

  AufwendigeProcedure();

  Form1.Enabled:=true;
  Form1.Cursor:=crDefault;
end;

Gruß
Ben
[edit]Application.ProcessMessages; drei Zeilen nach unten geschoben[\edit]

Benutzer lieber Screen.Cursor und nicht die Form Eigenschaft.