Ahh
Sauber hat geklappt! Danke
Hier der Code für Leute, die das selbe Problem haben:
Code:
procedure TJesusS.Dialog;
var n :integer;
begin
panel1.visible := true;
panel2.visible := true;
n := 0;
repeat
sleep(1000);
n := n + 1;
Application.ProcessMessages;
if n = 1 then panel1.caption := 'HA!';
if n = 10 then panel2.caption := 'HA!';
until n = 10;
end;
Vielen Dank!
Das ist Hilfe, wie ich mir sie vorstelle.
Gruß,
thechus