Form soll nicht verschiebbar sein!

[toms]

Sorry, das macht die Form nicht vergrößerbar.

So geht's:

Delphi-Quellcode:

  private
    procedure WMWindowPosChanging(var msg: TWMWindowPosChanging); message  WM_WINDOWPOSCHANGING;
  end;


procedure TForm1.WMWindowPosChanging(var msg: TWMWindowPosChanging);
begin
  inherited;
  msg.WindowPos^.flags := msg.WindowPos^.flags or SWP_NOMOVE;
end;