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

[-=cats=-]

Hi :hi:

Ich wollte eine Form einblenden lassen, wenn in
einem bestimmten Ordner eine Datei geändert / gelöscht (
eingefügt (was auch immer) wird.
Also dachte ich mir, mache ich das über das
AlphaBlend (das Einblenden). Ich habe den Wert auf 0 gesetzt
und erhöhe ihn in einer Schleife solange, bis
die Form komplett zu sehen ist.
Das funktioniert auch alles.
Jetzt wollte ich, das die Form so für ca. 15 Sek.
angezeigt wird, und sich danach wieder schließt.
Dafür habe ich einen Timer genommen und seine
Zeit entsprechend eingestellt. Nur blendet sich
die Form jetzt nach ein paar Sekunden einfach aus.
Den Timer beachtet sie scheinbar gar nicht.
Ich finde den Fehler einfach nicht ...

Hier ist mal mein Quellcode:
Ich hoffe, ihr könnt mir vielleicht helfen ...

Delphi-Quellcode:

procedure TForm19.ShellChangeNotifier1Change;
var i : integer;
begin
  Form25.Show;

 for i := 0 to 255 do begin
  Form25.AlphaBlendValue := Form25.AlphaBlendValue + 1;
  if (Form25.AlphaBlendValue = 255)
  then
     Timer1.Enabled := true;
   end;
end;

procedure TForm19.Timer1Timer(Sender: TObject);
begin
  Form25.Close;
  Form25.AlphaBlendValue := 0;
  Form19.SetFocus;
end;

Gruß,
-=cats=- :coder:

[SirThornberry]

Du schließt das Formular im Timer-Ereignis doch einfach. Zudem setzt du den Alphavalue sofort auf 0 wodurch es auch zu 100% transparent wird.

[-=cats=-]

Hmm ... ja schon.
Aber sie soll sich ja auch schließen, wenn
die Zeit abgelaufen ist ...
Oder ist das TimerEreignis falsch ?
Ich dachte, das wird dann aktiv, wenn der
Timer abgelaufen ist ... :gruebel:

[SirThornberry]

ich verstehs nicht ganz. Du willst das dein Form sich nach einer gewissen zeit wieder ausblendet. Gleichzeitig schreibst du aber auch das sich dein Form nach ein paar Sekunden ausblendet. Willst du das denn oder doch nicht?

[Neutral General]

Ist der Timer vielleicht schon von Programmstart an aus Versehen eingeschaltet?

[inherited]

Er will es, aber erst nach dem Timer1.Interval abgelaufen ist.

[-=cats=-]

Ok, ich kann das glaub ich grad nicht ganz rüber bringen :-)
Ich schreibe einfach mal die einzelnen Schritte auf, die
mein Programm machen soll

:arrow: Programm wird gestartet (Form19)
:arrow: Mein ShellChangeNotifier stellt fest "Oh, da ist gerade eine Datei eingegangen"
:arrow: Form25 blendet sich langsam ein (über AlphaBlend). Sie wird also immer deutlicher
zu erkennen.
:arrow: Damit der Benutzer sie nicht wegklicken muss, bleibt sie für 15 Sekunden eingeblendet
(voll sichtbar --> AlphaBlendValue = 255)
:arrow: Die 15 Sekunden sind um, also --> weg mit Form25

Ich hoffe, so ist es etwas klarer ...

Der Timer sitzt auf false. (Am Anfang).
Habe ich im OI eingestellt.

//edit:

Zitat:

Zitat von inherited

Er will es, aber erst nach dem Timer1.Interval abgelaufen ist.

Ja genau. Wenn der Timer abgelaufen ist (so dachte ich mir das) soll sich die Form ausblenden.

Kann es vielleicht an dem Event vom ShellChangeNotifier liegen ?
Vielleicht kann der ja nur ganz kurz eine Aktion ausführen ... :gruebel: :?: :?:

// edit 3:

So, ich habe jetzt mal ein Sleep eingebaut.
Jetzt funktioniert es. Das Problem ist nur, das auf einmal keine Labels
mehr auf der Form angezeigt werden. Ich sehe nur den Hintergrund der
Form :-(

[inherited]

Welches Interval hat dein Timer?

[-=cats=-]

Ich habe es auf 15000 gesetzt.

[SirThornberry]

Kann es sein das du nur nicht das blenden des Forms siehst weil deine Schleife ersten zu schnell durchläuft und zweites die Messages zwischendurch nicht verarbeitet werden? Dadurch hat es dann für dich den Anschein das die Funktionalität des Timers nicht stimmt.