TPanel caption verschwindet

[kingmarv]

Hi

Wenn ich nen Panel mit nem Caption anzeigen will geht es komischerweise nicht überall.
Das Panel lasse ich erscheinen währen in der Datenbank ausgewertet wird.

Code:

procedure showpanel();
begin
form1.panel1.Visible:=true;
form1.panel1.caption:='Spieltag wird ausgewertet.....';
end;

Wenn ich ihn so aufrufe funktioniert es wunderbar:

Code:

procedure TForm1.Button10Click(Sender: TObject);
begin
showpanel;
end;

Rufe ich ihn allerdings mitten in anderen Code aus zeigt er zwar den gelben Panel an aber keine caption ? Woran liegt das ?

z.B

Code:

begin
showpanel;
 List:=TStringlist.create;
rs := TFileStream.Create('info.txt', fmcreate or fmShareCompat);
IdHTTP1.Get('http://bltippspiel.spacequadrat.de/info.txt', rs);
IdHTTP1.Disconnect;
rs.free;
List.LoadFromFile('info.txt');

Danke im vorraus

[Bernhard Geyer]

Und wann soll Windows Zeit haben den Caption zu Zeichen?
Application.ProcessMessages bzw. form1.panel1.Update wäre dein Freund (wobei der Zugriff auf Globale Variablen über Kurze Zeit dir sehr viele Stunden Debugging verursachen wird).

[DeddyH]

Und wenn Du hinter dem Aufruf von showpanel Application.ProcessMessages einfügst?

[edit] *Buhuuu* schon wieder zu spät :cry: [/edit]

[kingmarv]

danke für die schnelle antwort. war mir nicht geläufig mit dem update.