Tips (1541)

Tip Rating (5):

// Write this code in your MDI Child Window unit.
// Schreibe diesen Code in die Unit des MDI Child Fensters:

type
  TfrmMyMDIForm = class(TForm)
  public
    procedure WMSize(var Msg: TWMSIZE); message WM_SIZE
  end;

implementation

procedure TfrmMyMDIForm.WMSize(var Msg: TWMSize);
begin
  if Msg.SizeType = SIZE_MINIMIZED then
    ShowWindow(Handle, SW_HIDE);
end;