Form blendet sich einfach aus / Timer läuft nicht ab !!!

[NormanNG]

Hi,

Delphi-Quellcode:

procedure TForm19.Timer1Timer(Sender: TObject);
var i : integer;
begin
  Timer1.Enabled := false;  // den Timer würde ich sofort ausschalten...

 for i := 255 to 0 do begin  // hier muss wohl DOWNTO rein 
//  Form25.AlphaBlendValue := Form25.AlphaBlendValue - 1;
    Form25.AlphaBlendValue := I;   // damit ist es gleich, was vorher drin war...
 end;

// if(Form25.AlphaBlendValue = 0)
// then
// begin
  Form25.Close;  // und hier die Form immer schließen, sie ist ja eh unsichtbar wg. der Schleife oben
// end;

end;

/edit: Schreibfehler korrigiert