当我把Form的BorderStyle设置成……(50分)

  • 主题发起人 主题发起人 asokinn
  • 开始时间 开始时间
A

asokinn

Unregistered / Unconfirmed
GUEST, unregistred user!
当我把Form的BorderStyle设置成bsNone时,需要还设置什么属性,能使程序运行后,

鼠标可以拖动窗体?
 
截取消息....这种贴子太多了
 
private
procedure WMNChitttest(var msg:Twmnchittest);message wm_nchittest;

procedure Tform1.WMNChitttest(var msg:TWMNChittest);
begin
inherited;
if (htclient=msg.result) then
msg.Result:=htCaption;
end;

 
同意楼上
 
接受答案了.
 

Similar threads

D
回复
0
查看
839
DelphiTeacher的专栏
D
D
回复
0
查看
845
DelphiTeacher的专栏
D
D
回复
0
查看
679
DelphiTeacher的专栏
D
D
回复
0
查看
812
DelphiTeacher的专栏
D
D
回复
0
查看
758
DelphiTeacher的专栏
D
后退
顶部