Hallo!

wenn ich in einer durch das onShow-Ereignis ausgelösten Prozedur eine Operation durchführe, die z.B. 5 Sek. lang rechnet, dann wird das Formular erst nach diesen 5 Sekunden angezeigt. Gibt es keine einfache Möglichkeit das zu umgehen bzw, gibt es kein Event was ausgelöst wird wenn das Formular wirklich angezeigt wird?
Danke,
derHarry!

Hallo Harry,

wenn von der Berechnung keine Abhängigkeiten zu der Form bestehen
dann lager die Berechnung doch in einen Thread aus.

Grüße
Klaus

Es gibt eine Möglichkeit, die aber nicht ganz einfach ist.
Du musst deinem Formular eine selbstdefinierte Windows-Message schicken.

zusammenfalten · markieren

Delphi-Quellcode:

const
   UM_AUTOSTART = WM_USER + 100;

Txxxx=class(TForm)

  procedure UMAutostart(var msg: TMessage); message UM_AUTOSTART;

end;

procedure Txxxx.FormShow();
begin
   PostMessage(Self.Handle,UM_AUTOSTART, 0, 0);
end;

procedure Txxxx.UMAutostart(var msg: TMessage);
begin
   // hier der länger dauernde Code
end;

Hallo,

du kannst ja mal folgendes versuchen:

markieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(self.Handle, SW_SHOW);
  application.ProcessMessages;

   //rechnen...
end;

Bei meinem Testprogramm zumindest, hat es funktioniert.