Programm bei Klick auf "X" minimieren

[Matze]

Ich mache das mit dem CodeLib-Code.

In die TNA habe ich es dann so gegeben, da es anders per Klick auf "X" nicht ging:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Hide;
  Shell_NotifyIcon(NIM_ADD, @IconData);
end;

[Stanlay Hanks]

Hi Matze. Versuchs doch mal mit dem in D2005 enthaltenen "NotifyIcon". Vielleicht gehts ja damit.

Man liest sich, Stanlay

[malo]

Versuch mal in der Prozedur "WndProc" eine neue Case-Abzweigung zu erstellen, die "WM_Minimize" heißt, und da einfach mal den Code einzugeben. Ich weiß zwar nicht, ob es funktioniert, aber ein Versuch wär es ja wert...

[Matze]

Das kenne ich nur für .NET (WinForms). Wo ist das denn bei der VCL zu finden?

[MathiasSimmack]

Zitat von malo:

Versuch mal in der Prozedur "WndProc" eine neue Case-Abzweigung zu erstellen, die "WM_Minimize" heißt, und da einfach mal den Code einzugeben.

Richtiger wäre WM_SIZE mit Auswertung SIZE_MINIMIZED. Es gibt ja noch diesen Systemhotkey [Win]+[M], mit dem man alle Fenster minimieren kann. Wir hatten das schon mal ausprobiert, aber mit WM_MINIMIZE funktioniert es irgendwie nicht, und das Programm würde normal in die Taskleiste minimiert werden. Es klappt nur mit dem o.g. WM_SIZE/SIZE_MINIMIZED. Allerdings nur bei nonVCL. Bei Delphi 5 reagierte das Programm irgendwie nicht korrekt. Aber evtl. ist das ja in Delphi 2005 endlich behoben worden.

[Matze]

Ich habe es nun so versucht:

Delphi-Quellcode:

procedure TForm1.WMSize(var Message: TWMSize);
begin
    if(Message.Msg = WM_SIZE) and
    (Message.SizeType = SIZE_MINIMIZED) then
  begin
    Hide;
    // Icon nur anzeigen wenn Fenster minimiert
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end
  else
    inherited;
end;

Aber einen Unterschied kann ich nicht feststellen.