eigenen tray-bereich programmieren

[s-off]

Zitat von eisblock:

Vielleicht wisst ihr auch, wie man das TrayNotifyWnd-Fenster aus dem Shell_TrayWnd-Fenster abkapseln kann (das würde die neuprogrammierung des Traybereichs ersparen)

Klar

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      Button2: TButton;
      Procedure Button1Click(Sender: TObject);
      Procedure Button2Click(Sender: TObject);
   private
      { Private-Deklarationen }
      OriginParent: Hwnd;
   public
      { Public-Deklarationen }
   End;

Var
   Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   OriginParent := Windows.GetParent(xxx);
   Windows.SetParent(xxx, Self.Handle);
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
   Windows.SetParent(xxx, OriginParent);
End;

End.

Edit:
xxx = Handle Deiner TNA

Edit2:
Hab mir gerade erst Deinen Anhang angesehen. Wenn Du
Windows.SetParent(xxx, Self.Handle); ersetzt durch
Windows.SetParent(xxx, 0); landet Deine TNA übrigens auf dem Desktop.

Edit3:
Was mir gerade noch einfällt:
Solltest Du die TNA auf Deine eigene Form packen, dann denke daran, beim Beenden Deiner Anwendung das Ganze wieder rückgängig zu machen (Button2Click) - ansonsten stehst Du ohne TNA da
Obwohl man die auch irgendwie wieder herstellen kann; weiss allerdings aktuell nicht, wie.

Edit4: Rechtschreibfehler in Edit3 beseitigt