Hi,
ich hab da ein Problem bei meinem neuen Programm, der Inhalt eines Panels wird nicht aktualisiert:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var Sparen: Integer;
begin
if arbeiter < 10 then
begin
if Geld > 99 then
begin
Geld := geld - 100;
sparen := arbeiter * 2;
GeldTimer.Interval := GeldTimer.Interval - sparen;
Panel4.Caption := inttostr(arbeiter);
Panel7.Caption := inttostr(geld) + ' €';
end
else
showmessage('Sie besitzen nicht genung Geld!');
end
else
showmessage('Sie besitzen schon 10 Arbeiter!');
end;
Ich weiß nicht wo das Problem liegt ???
Ich hoffe ihr könnt mir helfen ?!
Ich meine
Panel4.Caption := inttostr(arbeiter);
Er wollte die Zeile nicht rot färben ???!!!
Das Problem hab ich bei mehreren Panels !!!
ByStones