Tray Icon

[N47R0N]

Hi @ ALL

so ich habe mein programm jetzt beim minimieren dazu gebracht ins Tray zu verschwinden
und das nach diesem Prinzip:

http://www.luckie-online.de/Develope...tiges/TNA.html

Ein Problem hab ich da noch, unzwar wenn das Programm in den Tray verschwindet bleibt trotzdem das Programmzeichen in der Leiste wie kann ich das noch weg bekommen?

Danke

[Matze]

Moin, schau mal hier: TNA ;)

Nachtrag: Falls das identisch ist, dann muss das mit dem Code gehen.
Nachtrag 2:

Da steht's doch:

Delphi-Quellcode:

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

Hide entfernt den TaskBar-Button.

[N47R0N]

ne sorry hat sich nix geändert

[N47R0N]

ok hat sich erledigt danke :-D