Mega Code Archive
Make a TForm smaller than 112 Pixels
<![CDATA[
Title: make a TForm smaller than 112 Pixels?
{
In order to allow very small windows,
you need to override the default behavior for Windows message WM_GETMINMAXINFO.
This message is sent to your window by the OS in order to find out
the minimum and the maximum allowed window size.
You can do this by adding this method procedure to your form:
}
private
procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); message WM_GETMINMAXINFO;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO);
begin
inherited;
with Msg.MinMaxInfo^ do
begin
ptMinTrackSize.X := 0; // min. Width
ptMinTrackSize.Y := 0; // min. Height
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{ no systemmenu }
BorderIcons := BorderIcons - [biSystemMenu];
{ set the form's width & height }
Width := 80;
Height := 60;
end;
]]>