delphi how to prevent a MDI child from being maximized?

Question

in delphi mdi application there is need to show a child window with its caption in Mainform client area when maximize button is pressed using

Win32Check(Windows.GetClientRect(ClientHandle, aTRect));

MDIChild1.BoundsRect := aTRect;

functions.

So, how we can prevent a MDI child from being maximized when maximize button is pressed?

I've tried to do it using

procedure TChildText.WMSYSCOMMAND(var Message: TWMSYSCOMMAND);
var
  aTRect:TRect;
begin
  inherited;
  case message.CmdType of
    SC_MAXIMIZE: 
      begin
        Win32Check(Windows.GetClientRect(MainForm.ClientHandle, aTRect));
        BoundsRect := aTRect;
      end;
  end;
end;

with no result.

It's unreadable there. Please delete the comment and edit that code into the question. Please take care over the formatting so that the code is as readable as possible. The code in the question at the moment is scrappy. Such details are very important. — David Heffernan
Thank you for the edits. Whether or not there was a call to the inherited handler was what I was trying to find out. — David Heffernan
Because then the user would need to manually size the window to the client area, @Honza. This way, using the maximize button "almost" maximizes the window automatically. The goal here is to slightly redefine what maximization means, not to disable it entirely. — Rob Kennedy

Avrob Avrob · Accepted Answer · 2014-12-15T08:39:38

procedure TChildText.WMSYSCOMMAND(var Message: TWMSYSCOMMAND);
var
  aTRect:TRect;
begin
  if message.CmdType = SC_MAXIMIZE then
  begin
    Win32Check(Windows.GetClientRect(MainForm.ClientHandle, aTRect));
    BoundsRect := aTRect;
    message.CmdType := SC_RESTORE;
  end;
  inherited;
end;

delphi how to prevent a MDI child from being maximized?

1 Answers