Danke erstmal,
Habe schon mal ausprobiert.
Verhält sich aber ein bisschen komisch - Blinkt zwar, aber...
Ich habe Windows XP, weiß nicht ob das eine Rolle spielt?
Wenn ich folgenden Code verwende, dann leuchtet der Taskleisten-Button am Schluss nach dem das Fenster wieder maximiert ist immer!?
zu Beginn:
Timer1 = TTimer;
Timerintervall = 500
Enabled = FALSE
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Minimize;
Timer1.Enabled := TRUE;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Application.Handle, TRUE);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnRestore := DoOnRestoreApplication;
end;
procedure TForm1.DoOnRestoreApplication(Sender : TObject);
begin
Timer1.Enabled := FALSE;
end;
Mfg Sonic
