Hallo,
ich habe folgendes Szenario:
Form1:
- hat eine Variable auf Form2 und legt im FormCreate eine Instanz von Form2 an und setzt das Parent von Form2 auf Form1
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
tmp : TForm2;
begin
tmp := TForm2.Create(Application);
tmp.Parent := Form1;
tmp.Show;
end;
Form2:
- hat eine Statusbar
- setzt im FormShow die Color der Statusbar
Delphi-Quellcode:
procedure TForm2.FormShow(Sender: TObject);
begin
StatusBar1.Panels[1].Text := 'Update AUS';
StatusBar1.Color := clRed;
end;
Schwupps, die Statusbar ist gar nicht mehr da (wenn ich die Anwendung starte).
Setze ich die Color nicht, wird die Statusbar angezeigt.
Habt ihr eine Idee?
Grüße