Home » Tipps & Tricks » Komponenten » TForm » Fenstergröße begrenzen

Fenstergröße begrenzen

Über die ab Delphi 5 enthaltene Eigenschaft Constraints können Sie die Größe Steuerelementen, die direkt oder indirekt von TControl abgeleitet sind, begrenzen. Dazu gehören auch Formulare oder Frames.Setzen Sie eine ältere Delphi-Version ein, müssen Sie die Message WM_GETMINMAXINFO abfangen:

type
  TForm1 = class(TForm)
    ...
  private
     procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); 
       message WM_GETMINMAXINFO;
    ...
  end;

implementation

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  inherited;
  with Msg.MinMaxInfo^ do 
  begin
    ptMinTrackSize.x:= 100;
    ptMaxTrackSize.x:= 200;
    ptMinTrackSize.y:= 150;
    ptMaxTrackSize.y:= 300;
  end;
end;