Title: Min/Max track size and position for form
Question:
How to control your form size, track size , maximiazed position
Answer:
In Delphi 4 , we have a new property for the form called "Constraints" to set the
Max and Min size for the form, but is this enough for you? if not then try this code:
// declare this in the private section for your form:
procedure WMGetMinMaxInfo( var Message : TWMGetMinMaxInfo ); message WM_GetMinMaxInfo;
// Write this procedure:
procedure TForm1.WMGetMinMaxInfo( var Message : TWMGetMinMaxInfo );
begin
// Set the Max Size which the user can resize the form with
Message.MinmaxInfo.ptMaxTrackSize.x := 500;
Message.MinmaxInfo.ptMaxTrackSize.y := 500;
// Set the Min Size which the user can resize the form with
Message.MinmaxInfo.ptMinTrackSize.x := 300;
Message.MinmaxInfo.ptMinTrackSize.y := 300;
// Set the Max Size of window when it is Maximized (New!)
Message.MinmaxInfo.ptMaxSize.x := 500;
Message.MinmaxInfo.ptMaxSize.y := 500;
// Set the X and Y position for the form when it is Maximized (New!)
Message.MinmaxInfo.ptMaxPosition.x := 20;
Message.MinmaxInfo.ptMaxPosition.y := 20;
// NOTE: This code was tested on deplhi 4, Windows NT workstation 4
end;