Form aus Symbolleiste verbannen

[sebjensen]

Hallo.

Ich habe ein kleines Tool geschrieben, dass sich per TTrayIcon auch in der kleinen Statusleiste neben der Uhr verewigt hat. Das funktioniert so weit auch super.

Wenn ich jetzt meine Form jedoch minimiere, möchte ich gerne, dass diese dann auch aus der Taskleiste verschwindet und nach einem Doppelklick auf das TrayIcon wieder sichtbar wird.

Ist das irgendwie möglich?

Dankeschön.

[alzaimar]

Probiers mal mit:
Application.ShowMainForm := False Das sollte das Formular von der Taskbar verbannen.

[sebjensen]

Zitat von alzaimar:

Probiers mal mit:
Application.ShowMainForm := False Das sollte das Formular von der Taskbar verbannen.

Und wann muss ich das Aufrufen?
Habe mir erstmal einen neuen Button generiert mit genau dieser Aktion, aber leider passiert dort gar nichts, wenn ich den betätige. Woran kann das liegen?

[bitsetter]

Hi,

in der Code-Lib findet man Code dazu, wo sich das Fenster so verhält wie du es vor hast.
Programm in der TNA ablegen
Dazu wird bei dem Code die Nachricht WM_SYSCOMMAND und dort dann SC_MINIMIZE abgefangen und dann das Fenster versteckt.

[sebjensen]

Hi.

Ich komme damit irgendwie nicht klar. Muss ich diese einzelnen Funktionen und Prozeduren in mein Projekt kopieren oder binde ich das ein?

Ich habe das nun reinkopiert und bekomme dann 23 Fehler, weil Delphi die ganzen Sachen nicht kennt...

[bitsetter]

Das wäre das wichtigste:

Delphi-Quellcode:

  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses ShellApi;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  // Fenster wurde minimiert
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
  begin
    Hide;//Fenster verstecken
    // Icon in der TNA anzeigen
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end
  else
    inherited;
end;

[sebjensen]

Hallo.

Jetzt tut er sich noch bei @IconData schwer. Muss ich das irgendwie noch angeben?

[bitsetter]

Zeige mal ein bisschen Code, @IconData ist den Icon in der TNA.

EDIT: IconData: TNotifyIconData;

[sebjensen]

Zitat von bitsetter:

Zeige mal ein Bisschen Code, @IconData ist den Icon in der TNA.

Wieso Code? Ich habe doch einfach nur deinen angegebenen Code übernommen.

[bitsetter]

hast du die uses ShellApi; eingebunden?