DELPHI 禁止窗体移动

  private
    procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;



//禁止窗体移动
procedure TSysTemCenter.WMSYSCOMMAND(var msg: TMessage);
begin 
  if msg.WParam=SC_MOVE then msg.WParam:=0;
end;