Prüfen ob Programm minimiert ist

[fkerber]

Hi!

Wegen den Smileys:

Einfach draufklicken (ich glaube JavaScript muss aktiviert sein).


Wegen dem Code:

Es ist besser, wenn du deinen Code postest (von wegen dem Lerneffekt).


Ciao fkerber

[G M]

Auf das mit den Smileys hätte ich selber kommen können!!

nun mein code (lacht mich bitte nicht aus)
ich habe versucht mit einem Timer zu checken ob das Programm minimiert ist:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if [b]IsIconic(Form1.Handle)[/b] then
  showmessage('Hallo');
end;

das fettgeschriebene habe ich von oben (Christian Seehase)

[edit=Christian Seehase]Pre-Tags gesetzt. Mfg, Christian Seehase[/edit]

[Wheelie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Window: THandle;
begin
  Window := FindWindow(nil, 'Fenstertitel');
  if IsIconic(Window) then
  begin
    //...
  end;
end;

Statt Rechner den Fenstertitel der Anwendung eintragen.

[G M]

was bringt das genau?

Fenstertitel ist Form.Caption, oder??

[fkerber]

Hi!

Was genau willst du denn erreichen?
Willst du feststellen, ob dein Fenster minimiert ist, oder ein anderes Fenster?

Ciao fkerber

[G M]

ich hatte einen geistesblitz!!
ich wollte wenn man mein Programm(?) minimiert dass es in der Taskleiste blinkt.

das mit der Taskleiste habe ich gefunden : 'FlashWindow(Application.Handle, True);

mitt dem minimieren habe ich noch probleme.

[SirThornberry]

probier mal
if IsIconic(Application.handle) then

[fkerber]

Hi!

Zitat von G M:

mitt dem minimieren habe ich noch probleme.

Willst du minimieren, oder nur mitbekommen, wenn minimiert wurde?


Ciao fkerber

[G M]

mein Programm soll merken wenn es minimiert wird und dann de Befehl
FlashWindow(Application.Handle, True); (also es soll in der Taskleiste blinken)
ausführen.
Wenn es wieder maximiert wird soll das aber wieder aufhören.

[SirThornberry]

schau dir einfach mal Application.OnMinimize an. Bsp.:

Delphi-Quellcode:

procedure TForm1.Minimizeproc(Sender: TObject);
begin
  //das was beim minimieren passieren soll
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := Minimizeproc;
end;