1157
社区成员
请问怎样用一个无标题栏的窗体来过控制窗体的移动?
请问怎样用一个无标题栏的窗体来过控制窗体的移动?
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
阳春面0513 2003-09-28
谢了
mmtang3 2003-09-28
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;
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;
FrameSniper 2003-09-28
方法很多，提供一种：
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;
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 2003-09-28
方法很多，提供一种：
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;
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;
阳春面0513 2003-09-28
就是把窗体设置成无标题栏的，但是可以通过点击窗体上的任何地方来拖动窗体。
FrameSniper 2003-09-28
什么意思？
