parent minimieren

[DeddyH]

Delphi-Quellcode:

type 
  TDeinForm = class(TForm)
  ...
  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  ...
  end;

...

implementation

...

procedure TDeinForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType = SC_MINIMIZE then
    ShowMessage('Minimieren')
  else
    inherited;
end;