warum fun. das nicht?

[marian19]

Code:

procedure TChatForm.Button2Click(Sender: TObject);

var

i : integer;

begin

i := 0;

while i < 10 do

begin

sleep(100);

label1.Caption := inttostr(i);

inc(i) ;

end;



end;



end.

[Jailbird]

während der prozedur verarbeitet dein programm keine messages...deshalb musst du dazu eine zeile einfügen.

einfach innerhalb der schleife ein

Application.ProcessMessages;

einbauen

[marian19]

Vielen Dank

:--)

[bg-02]

Oder du implementierst deine eigene (oder meine) "procedure Pause" statt "sleep"

procedure pause(z: real);     // "z" - in sekunden in diesem Fall
var zeit: real;
begin
  zeit:= Now*24*3600;         // oder Now*24*3600*1000 für msec
  repeat
    Application.ProcessMessages;
  until (Now*24*3600-zeit)]=z;
end;

[ChadFernandez]

während der prozedur verarbeitet dein programm keine messages

kannst du mir mal erklären wie das mit dem obigen bsp zusammenhängt? wo sind da die messages? blick da nicht ganz durch ;)