Form zeigt sich nicht trotz .show etc.

[dataspider]

Hi,

ich gehe mal davon aus, das Form1 das Mainform ist und es darum geht, dass nach der Anzeige des Forms die Aktionen starten sollen.
Ich benutze immer diese variante:

Delphi-Quellcode:

  TForm1 = class(TForm)
  private
    procedure doAfterAppLoaded;
  public
    constructor Create(AOwner: TComponent); override;
    procedure AppOnIdle(Sender: TObject; var Done: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Application.OnIdle := AppOnIdle;
end;

procedure TForm1.AppOnIdle(Sender: TObject; var Done: Boolean);
begin
  Application.OnIdle := nil;
  doAfterAppLoaded;
end;

procedure TForm1.doAfterAppLoaded;
begin
  // hier der Code
end;

Cu, Frank