Ich muss jetzt nochmal mit diesem Thema anfangen ...
Also, hat vielleicht jemand eine Idee, warum mein
Timer nicht abläuft ?
Ich finde den Fehler einfach nicht
Habe den Quellcode nochmal so geändert:
Delphi-Quellcode:
procedure TForm19.ShellChangeNotifier1Change;
begin
Form25.Show;
Timer1.Enabled := true;
end;
procedure TForm19.Timer1Timer(Sender: TObject);
var i : integer;
begin
for i := 255 to 0 do begin
Form25.AlphaBlendValue := Form25.AlphaBlendValue - 1;
end;
if(Form25.AlphaBlendValue = 0)
then
begin
Form25.Close;
Timer1.Enabled := false;
end;
end;
Leider hat das auch nichts genützt
Form25 wird zwar eingeblendet, sie schließt
sich aber nicht ...
Weiß vielleicht jemand, woran das liegen könnte ?
Gruß,
-=cats=-
