Thema: Delphi Gespräch simulieren??

Einzelnen Beitrag anzeigen

thechus

Registriert seit: 18. Dez 2011
30 Beiträge
 
#6

AW: Gespräch simulieren??

  Alt 4. Jun 2012, 22:24
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
  Mit Zitat antworten Zitat