Mega Code Archive
How to make a TForm smaller than 112 Pixels
<![CDATA[
Title: How to make a TForm smaller than 112 Pixels
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;
]]>