请问怎样用一个无标题栏的窗体来过控制窗体的移动?

Question

请问怎样用一个无标题栏的窗体来过控制窗体的移动?

Answer 1

方法很多，提供一种：
1.在窗体类申明的Private部分申明一个消息处理器
procedure Wm_NcHitTest(var Msg:TMessage);message WM_NCHITTEST;
2.实现如下：
procedure TForm1.Wm_NcHitTest(var Msg:TMessage);
begin
  Inherited;
  if Msg.Result=htClient then
    Msg.Result:=htCaption;
end;

Answer 2

方法很多，提供一种：
1.在窗体类申明的Private部分申明一个消息处理器
procedure Wm_NcHitTest(var Msg:TMessage);message WM_NCHITTEST;
2.实现如下：
procedure TForm1.Wm_NcHitTest(var Msg:TMessage);
begin
  Inherited;
  if Msg.Result=htClient then
    Msg.Result:=htCaption;
end;

Answer 3

TForm1 = class(TForm)
  private
    { Private declarations }
    procedure OnWMNCHitTEST(var Msg: TMessage); message WM_NCHITTEST;
  public
    { Public declarations }
  end;implementation{$R *.dfm}{ TForm1 }procedure TForm1.OnWMNCHitTEST(var Msg: TMessage);
begin
    Msg.Result := HTCAPTION;
end;