|
Registriert seit: 7. Jun 2004
386 Beiträge
|
Re: fade via sleep
9. Nov 2005, 17:52
So:
Delphi-Quellcode:
procedure TMainForm.einblenden;
begin
alphablend:=true;
alphablendvalue:=0;
repeat
alphablendvalue:=alphablendvalue+3;
Application.ProcessMessages;
sleep(10);
until alphablendvalue >= 250;
alphablendvalue:=255;
alphablend:=false;
end;
?
Scheint keinen Unterschied zu machen.
|