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