Taskleiste - Buttonblinken

[sonic]

Hallo alle zusammen!

Hätte eine Frage, hab schon gesucht, aber nicht gefunden...
Ich möchte gerne den Button in der Taskleiste blinken lassen,
so wies manche Programme ja tun, um auf sich aufmerksam zu machen.

Blos wie?

mfg Sonic

[MathiasSimmack]

Code:

BOOL FlashWindow(
  HWND hWnd,
  BOOL bInvert
);

1. Parameter = Handle der Anwendung (bei VCL, IMHO "Application.Handle")
2. Parameter = true, dann blinkt´s

[sonic]

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

[Stanlay Hanks]

Ich kenn mich da ja nicht aus, aber vielleicht brauchst du dazu gar keinen Timer, sondern musst, wenn es aufhören soll zu blinken einfach

   FlashWindow(Application.Handle, FALSE); schreiben.
Ich gehe davon aus, dass das einfach nur dem System sagt, dass der Button jetzt blinken soll, bis man ihm sagt, es soll damit aufhören.

Man liest sich, Stanlay

[MathiasSimmack]

Eben nicht.

Zitat von PSDK:

The FlashWindow function flashes the window only once; for repeated flashing, the application should create a system timer.

For an example, see Notifying the User of Errors:

Code:

FlashWindow(hwnd, TRUE); // invert the title bar 
Sleep(500);              // wait a bit 
FlashWindow(hwnd, TRUE); // invert again 
 
// Play the system exclamation sound. 
 
MessageBeep(MB_ICONEXCLAMATION);

[Stanlay Hanks]

Zitat von MathiasSimmack:

Eben nicht.

Ich hab ja nur gemeint

[MathiasSimmack]

Ja, war ja auch nicht böse gemeint. Habe eben bloß fix im PSDK nachgeschaut ... ich geb´s ja zu ...

[sonic]

In der Hilfe steht das man einen Timer dafür braucht...

Ich bin draufgekommen, das es manchmal schon funktioniert.
Ich hab auch schon, folgendes versucht...

Delphi-Quellcode:

procedure TForm1.DoOnRestoreApplication(Sender : TObject); 
begin 
* Timer1.Enabled := FALSE; 
  FlashWindow(Application.Handle, FALSE);
end;

Also am Schlss nochmal FALSE schalten. Machts aber noch schlimmer.
Hab die Funktion auch schon einzeln nur in ein Button Click getan,
um zu sehen was sie macht. Mir unklar

Mfg Mike

[MathiasSimmack]

Die Funktion invertiert die Titelleiste des Fensters (bzw. den Button in der Startleiste) genau einmal. Aus einer aktiven Titelzeile wird so
FlashWindow(self.Handle,true); eine inaktive. Um den Vorgang umzukehren und die Titelzeile wieder als aktiv darzustellen, musst du die Funktion noch einmal aufrufen - und genau so wie zuvor:
FlashWindow(self.Handle,true); "false" als zweiter Parameter bedeutet nur, dass die Titelzeile in ihren ursprünglichen Zustand versetzt wird. War sie also inaktiv, wird sie das auch wieder. War sie aktiv, dann wird sie durch "false" eben wieder aktiv.

Ein typisches Geblinke der Fenstertitelzeile via Button-Klick und ohne Timer:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to 4 do begin
    FlashWindow(self.Handle,true);
    if(i < 4) then sleep(60);
  end;
end;

[Luckie]

Ich werfe noch mal ganz mutig ein FlashWindowEx in die Runde. *werf*
Da kann man alles einstellen, wie oft, wie lange, wo, warum, weshalb, ...