Hallo,
eine Moglichkeit wäre so:
Delphi-Quellcode:
procedure WMSYSCOMMAND(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
procedure TForm1.WMSYSCOMMAND(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
WindowState := wsMinimized
else
inherited;
end;
Eine weitere wäre ein eigener Taskbareintrag:
Delphi-Quellcode:
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;