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