5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Jello 2003-09-12
- 打赏
- 举报
不是，是不允许用鼠标拖动！有何解法？
hahafan 2003-09-12
- 打赏
- 举报
处理WM_NCHITTEST消息：
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
Inherited;
if Message.Result = HTCAPTION then
Message.Result := HTCLIENT;
end;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
Inherited;
if Message.Result = HTCAPTION then
Message.Result := HTCLIENT;
end;
karach 2003-09-12
- 打赏
- 举报
不是很明白
不知道是不是这个意思，就是你一旦打开某个界面后，就不能再其他的界面操作拉，
如果是这样的话，把你的open命令改称showmodel,就ok拉
不知道是不是这个意思，就是你一旦打开某个界面后，就不能再其他的界面操作拉，
如果是这样的话，把你的open命令改称showmodel,就ok拉
sanyixu2002 2003-09-12
- 打赏
- 举报
什么意思,在说明白一点。
Jello 2003-09-12
- 打赏
- 举报
顶！！！！
