Minimieren ins Systray mit einzelne Form

**faux**

Hallo

ich lasse mit...

Delphi-Quellcode:

			procedure TForm1.CreateParams(var Params: TCreateParams); //Form1 ist nicht das Hauptformular

begin

  inherited;

  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

  //SetWindowLong(Handle, GWL_HWNDPARENT, 0);

end;

...mein Form in der Taskleiste anzeigen.
Jedoch will ich mit...

markieren

Delphi-Quellcode:

			procedure TForm1.AppEvntMinimize(Sender: TObject);

begin

  FormStyle:=fsStayOnTop;

  Hide;

end;

...mein Programm im SysTray anzeigen lassen, wenn es minimiert wird. Der Systray wird durch...

markieren

Delphi-Quellcode:

			with NIM do //NIM: TNotifyIconData;

  begin

    cbSize := SizeOf (NIM);

    Wnd := Handle;

    uID := 0;

    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

    uCallbackMessage := IC_CLICK; //IC_CLICK = WM_APP + 201;

    hIcon := Application.Icon.Handle;

  end;

  Shell_NotifyIcon(NIM_ADD, @NIM);

...generiert.

Jetzt die drei Fragen:
1. Wenn ich Form1 minimiere, dann passiert garnichts. Wieso?
2. Wie kann ich beim Minimieren die Form aus der Taskleiste verschwinden lassen?
3. Wie kann ich es realisieren, dass beim minimieren einer Form, nicht alle anderen ebenfalls minimiert werden? Ich habe in einem Anderen Thread einen Tipp bekommen (im 1. Source die letzte kommentierte Zeile), jeodch funktionierts nicht...

Danke schon mal für die Antworten

Minimieren ins Systray mit einzelne Form

Minimieren ins Systray mit einzelne Form

Forumregeln