Forum: Object-Pascal / Delphi-Language
Delphi
by Alexander Roth,
19. Mär 2006
Deshalb hab ichs nicht empfohlen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Alexander Roth,
19. Mär 2006
Also, wozu die until i=10 ?
Dann macht er die selbe animation ja nicht 10 mal da die Zeit um ist.
Einfach so:
procedure TForm1.trash;
var start:longint;
begin
start:=gettickcount;
repeat Application.ProcessMessages until GetTickCount>=start+50;
image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
repeat Application.ProcessMessages until GetTickCount>=start+100;