Eigentlich möchtest du ja nur dein Fenster beim Minimieren aus der Taskleiste entfernen. Der Code für dein Projekt:
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
end
else
inherited;
end;
Ansonsten die Demo aus der Code-Lib: