Schleife in OnShow, form wird erst am ende angezeigt?

[Rumpi]

Hi,

lagere deine Schleife in eine
Procedure MeineSchleife; aus und erstelle
FFirstShow: Boolean; in deiner Form.

Delphi-Quellcode:

procedure Form1.OnCreate( Sender: TObject );
begin
  FirstSchow := True;
end;

// On Activate is wohl besser
procedure Form1.OnActivate( Sender: TObject );
begin
  MeineSchleife;
end;
  
procedure Form1.MeineSchleife;
begin
  if FFirstShow then
  try
    // ... dein code

  finally
    FFirstSchow := False; 
  end;
end;

mfg Rumpi