Zitat von
Neutral General:
Delphi-Quellcode:
procedure TForm2.Timer2Timer(Sender: TObject);
begin
if Alphablendvalue < 255 then begin
inc(Alphablendvalue); //bzw AlphaBlendvalue := AlphaBlendValue + 1;
end;
end;
Das geht mit "inc"? Hatte ich auch erst,
aber da hat mein Compiler Terror gemacht.
Klar, über einen Timer gehts aber ich halte es für unelegant auf jede Form erst ein Timer
Objekt legen zu müssen.
Außerdem verstehe ich einfach nicht, warum es nicht über sleep funktioniert. Habe es auch
mit der "delay"-Funktion hier aus der Code-Libary versucht - ohne Erfolg.