hoi,
danke für die hilfe
klappt bei mir aber irgendwie nicht, hab das so:
Delphi-Quellcode:
procedure 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;
und zum aufrufen des timers das:
Delphi-Quellcode:
with TTimer.Create(InfoForm) do
begin
InfoTimer.Enabled := False;
InfoTimer.Interval := 5;
InfoTimer.OnTimer := AlphaBlendCount;
end;
fehlermeldung ist "[Fehler] Unit1.pas(385): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'"