Forms unabhängig minimieren

[bitsetter]

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;