farbe labelx.caption

[Timo]

ahhhh ... ich suche so etwas wie ein delay in turbo pascal - also ne art verzögerung ... wenn bei dem prog dann nichts mehr geht mit sleep dann ist mir alles klar ...

gibt es denn ne delay funktion?

[Luckie]

Delphi-Quellcode:

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) ›= msec;
end;

[Timo]

danke ... jetzt klappts ...