Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Reagieren auf Ereignisse meines zur Laufzeit erzeugten Forms

**mirage228**

ich glaub des geht so:

InfoTimer := TTimer.Create(InfoForm); <Edit>: Und das brauchste auch das With ... Do net mehr:

Delphi-Quellcode:

			    InfoTimer := TTimer.Create(InfoForm); 

    InfoTimer.Enabled := False; 

    InfoTimer.Interval := 5; 

    InfoTimer.OnTimer := AlphaBlendCount;

</edit>

und du solltest die procedure AlphaBlendCount zwischen die anderen Ereignisprozeduren des Forms (über private und public)

und dann musste schreiben

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDasIstDasForm.AlphaBlendCount(Sender: TObject);

var i: integer;

begin

  InfoTimer.Enabled := True;

  if i <> 255 then

  begin

  i := i + 3;

  InfoForm.AlphaBlendValue := i;

  end

  else InfoTimer.Enabled := False;

end;

so sollte es gehen!

mirage228