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!! :wall:

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

Delphi-Quellcode:

if IsIconic(Application.handle) then

[fkerber]

Hi!

Zitat:

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;