Form soll nicht verschiebbar sein!

[toms]

Edit: Dieser Code macht die Form verschiebbar aber nicht vergrößerbar. Richtige Antwort unten.

Delphi-Quellcode:

private
   procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
end;

Delphi-Quellcode:

implementation

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  inherited;
  with Msg.MinMaxInfo^ do 
  begin
    ptMinTrackSize.X := Self.Width;
    ptMaxTrackSize.X := Self.Width;
    ptMinTrackSize.Y := Self.Height;
    ptMaxTrackSize.Y := Self.Height;
  end;
end;