Thema: Delphi Tray Icon

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Tray Icon

  Alt 2. Dez 2005, 23:09
Moin, schau mal hier: TNATNA

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.
  Mit Zitat antworten Zitat