Form wird nicht angezeigt

[DL3AD]

Hallo,

ich habe da ein kleines Problem.
Von der Form1 rufe ich eine Form2 auf - dass funktioniert auch wenn nix weiter in der Form2 passiert.
In der Form2 will ich nun Statusmeldungen einer initialisierung ausgeben - aber dass Poggy schaft es nicht das Form2 zu zeichnen selbst wenn ich eine "ShowMessage('warten')" einfüge wird die Form nicht gezeichnet.
Kann man das Zeichnen der Form erzwingen ?

Gruß Frank

[baumina]

Ein anderes Formular wird mit Form2.Show bzw Form2.ShowModal aufgerufen.

[DL3AD]

... Danke der Tip mit .ShowModal war schon mal gut - nun brauche ich die Forms nicht mehr mit Hide und Show umschalten.

Aber:
in Form1 rufe ich nun Form2 mit .ShowModal auf. Nun habe ich über das Ereigniss TForm2.FormShow eine Procedure in der ich einige sachen abarbeiten will.
Beispielhaft habe ich eine ShowMessage drin. Wenn ich das Proggy starte dann Kommt gleich meine ShowMessage
Erst wenn ich diese wegklicke kommt meine Form2.
Ich möchte dass die Form2 sich erst aufbaut - will ja schließlich meine Statusmeldungen nacheinander lesen können.

Was mache ich da falsch ?

Gruß Frank

[Joz]

Dann versuche doch einmal, statt FormShow das Ereignis OnActivate zu benutzen.
FormShow wird vor dem Zeigen aufgerufen, FormActivate danach.

[DL3AD]

Hallo Joz,

DANKE das war die Lösung.

Gruß Frank

[baumina]

Ich würde dir vorschlagen, dass du das so in etwa lösen könntest:

Code: Alles auswählen

 
procedure ZeigeForm2;
var
  Form2 : TForm2;
 
begin
  Form2 := TForm2.Create(Application);
  Form2.Show;
  ShowMessage('Ich tu jetzt was');
  .....
  .....
  ShowMessage('Jetzt bin ich fertig');
  Form2.Free;
end;