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

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