如何让窗体的位置固定在屏幕的中间？(20分)

L

ltqlyy125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #1

我设置了窗体的位置为CENTER但运行时还是可以通过标题栏移动它
怎样写代码来限制它不给移动？

 

G

guyaling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #2

你只要设置FORM属性的/Per..中的/center disktorp（我记不清拼写）就可以.

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #3

不要标题栏或者
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure onposchange(var msg:twmwindowposchanging);
message wm_windowposchanging;
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure tform1.onposchange(var msg:twmwindowposchanging);
begin
msg.windowpos.x:=left;
msg.WindowPos.y:=top;
msg.result:=0;
end;
end.

 

C

cook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #4

截获任务拦上的消息，如果是mousemove
就截住，其他的放过去

 

C

cooler168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #5

楼上的答案或者将其Align设为alclient

 

A

aOneSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #6

将Form1的Position属性值设为poScreenCenter即可.

 

C

cook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #7

不行

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #8

自己写消息处理函数 WM_MOVE
每次 WM_MOVE 之后都把位置设置回去

 

L

ltqlyy125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #9

谢谢

 

L

ltqlyy125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #10

88888

 

Z

zhengxb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #11

呵呵，这个问题我知道。把form.borderstyle设为none，再将form1.Position设为poScreenCenter即可。

 

D

dxymzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #12

是一开始在中间？
是否可以进行拖动？

 

S

sinmonsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #13

先声明
procedure WMNCHitTest(var Msg: TMessage);
message WM_NCHITTEST;
然后
procedure tform1.WMNCHitTest(var Msg: TMessage);
begin
inherited;
// 这样,移动就不可能了...
Msg.Result := HTCLIENT;
end;
再设置position:=poscreencenter
这样既在中间,又不能移动

 

方

方栩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #14

>>呵呵，这个问题我知道。把form.borderstyle设为none，再将form1.Position设为poScreenCenter即可。
这个肯定正确

 

L

lql0459

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #15

sinmonsoft的回答能满足你的要求！

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #16

同意sinmonsoft方法，截取WM_NCHITTEST消息进行处理，这样即能显示标题栏
又能保持在屏幕中间。

 

L

ltqlyy125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #17

谢谢