|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/29 10:39:25 |
标题: |
求助*****怎样才能让窗口不能移动!!!??? |
浏览:896 |
|
加入我的收藏 |
楼主: |
求助*****怎样才能让窗口不能移动!!!???
----------------------------------------------
- |
作者: |
|
2004/7/29 10:41:49 |
1楼: |
把TForm的BorderStyle设置为bsNone?
----------------------------------------------
=^@^=
|
作者: |
|
2004/7/29 10:51:02 |
2楼: |
zsredmoon 谢谢!!但是这种办法不行。。。 还有没有其他的办法能???
----------------------------------------------
-
|
作者: |
|
2004/7/29 12:01:22 |
3楼: |
不能移动?怎么总有这种古怪的需求。。。软件的设计是要方便用户而不是限制用户。。。。
大概是可以截获窗口的移动信息吧,我也不太懂
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
|
作者: |
sephil (NAILY Soft) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/7/29 14:10:42 |
4楼: |
type TForm1 = class(TForm) private { Private declarations } procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; end;
............
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); begin Message.Result := HTCLIENT; // Message.Result := 0; end;
----------------------------------------------
Copyright 2008 ? NAILY Soft Click here to redirect to my home Click here to redirect to my blog
|
作者: |
|
2004/7/29 14:44:57 |
5楼: |
谢谢!!!
----------------------------------------------
-
|
|