Delphi Gespräch simulieren??

Thema durchsuchen

Ansicht

Themen-Optionen

Gespräch simulieren??

Ein Thema von thechus · begonnen am 4. Jun 2012 · letzter Beitrag vom 6. Jun 2012

Vorheriger Beitrag

Nächster Beitrag

thechus

Registriert seit: 17. Dez 2011
30 Beiträge

AW: Gespräch simulieren??

4. Jun 2012, 21:24

Ahh

Sauber hat geklappt! Danke

Hier der Code für Leute, die das selbe Problem haben:

markieren

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;