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

阳春面0513 上海小蚁科技有限公司 开发组长/高级工程师/技术专家  2003-09-28 01:44:11
请问怎样用一个无标题栏的窗体来过控制窗体的移动?
...全文
73 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过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;
回复
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;
回复
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;
回复
阳春面0513 2003-09-28
就是把窗体设置成无标题栏的,但是可以通过点击窗体上的任何地方来拖动窗体。
回复
FrameSniper 2003-09-28
什么意思?
回复
发帖
Windows SDK/API
创建于2007-08-02

1153

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2003-09-28 01:44
社区公告
暂无公告