请问在有标题栏的情况下，如何能实现窗体不被拖动？

Question

请问在有标题栏的情况下，如何能实现窗体不被拖动？谢谢！

Answer 1

DisableControl或者禁用鼠标事件，呵呵

Answer 2

重载wm_nchittest事件type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure nchittest(var msg:TMessage);message wm_nchittest;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.nchittest(var msg: TMessage);
begin
  inherited;
  if msg.Result = HTCaption then
  begin
    msg.Result := HTCLIENT;
  end;
end;

Answer 3

最简单的
窗体的Align设为alCustom