Schleife in OnShow, form wird erst am ende angezeigt?

[Pseudemys Nelsoni]

hi,

wenn ich im OnShow eine schleife habe, wird das show des forms erst NACH der schleife ausgeführt....wo kann ichs denn reinpacken damit das form davor sichtbar wird? onactivate is wohl schlecht oder? wenn das form mal nich aktiv is und ich es wieder aktiv mache wird die schleife ja nochmal ausgeführt.....sie soll aber nur nach onshow aufgerufen werden

[Sharky]

Hai silent,

eventuell ein ProgressMessage in die Schleife? Oder die Schleife doch in OnActivate und nach der Schleife eine Variable setzten damit die Schleife nicht nocheinaml ausgeführt wird.

[Pseudemys Nelsoni]

das mit apllication...hab ich schon ausprobiert, ging aber nicht, ne variable is ne gute idee

danke ;)

[Rumpi]

Hi,

lagere deine Schleife in eine

Delphi-Quellcode:

Procedure MeineSchleife;

aus und erstelle

Delphi-Quellcode:

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

[Pseudemys Nelsoni]

hoi, danke, es funzt =]