Minimieren und aus Taskbar ausblenden (TCoolTrayIcon )

[Daniel B]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  public
    { Public-Deklarationen }
  end;

Delphi-Quellcode:

procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = SC_MINIMIZE) then
  begin
    Handled := True
  end else
    Handled := False;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) then
  begin
    //Wenn es miniert wird
    Application.Minimize;
    LMDTrayIcon1.Active := True; // <--- Hier also Dein Code...
  end else inherited;
end;