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

[阳春面0513]

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

[FrameSniper]

什么意思？

[阳春面0513]

就是把窗体设置成无标题栏的，但是可以通过点击窗体上的任何地方来拖动窗体。

[FrameSniper]

方法很多，提供一种：
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;

[FrameSniper]

方法很多，提供一种：
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;

[mmtang3]

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;

[阳春面0513]

谢了