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:
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]