DELPHI怎样实现禁止用户移动窗口？

Question

DELPHI怎样实现禁止用户移动窗口？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSYSCOMMAND(var msg: TMessage);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
 if msg.WParam = SC_MOVE then
   msg.WParam := 0;
end;end.