核心提示:600) this.width = 600;'>type TForm1 = class(TForm)... private procedure GetMinMaxInfo(var Msg: TWMGE...
600) this.width = 600;">
type
TForm1 = class(TForm)
...
private
procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ; message WM_GETMINMAXINFO;
...
implementation
procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ;
begin
with Msg.MinMaxInfo^ do
begin
ptMinTrackSize.X := 0; // min. Width
ptMinTrackSize.Y := 0; // min. Height
end;
end;