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

[-=cats=-]

Also, das immer heller werden der Form sehe ich.
Geht zwar wirklich sehr schnell, aber das macht ja
nichts. Hauptsache, man kann es ein bisschen sehen.
Ich dachte mir, ich bau mir mal Nachrichten dazwischen,
mit ShowMessage('Hallo'); usw.
Damit ich sehe, was er macht und was nicht.
Dadurch habe ich rausgefunden, das die Form da bleibt
bis ich die Nachricht, die ich danach aufrufe (im Shell...Change-Event)
wegklicke.
Und dann hab ich bei der TimerMethode auch nochmal eine Nachricht
reingesetzt .. Die wird nicht angezeigt !
Scheinbar wird die Methode gar nicht aufgerufen ... :gruebel:
Kann das sein ?

[-=cats=-]

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=- :coder:

[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

[-=cats=-]

:hello: Juhuuu !!! Es funktioniert !!!
Vielen Dank für Deine Hilfe !!!!!!