怎样去掉MDIChild子窗体的标题栏？就像一般窗体border设为为None那样。谢谢(50分)

A

archy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #1

怎样去掉子窗体的标题栏？就像一般窗体border设为为None那样。谢谢

 

张

张一健

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #2

关注 up

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #3

procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
begin

end;
即可。

 

A

archy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #4

不好意思，不懂

 

C

chenjianzu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #5

gz![]

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #6

老大，你见过有人把子窗体的标题栏去掉的吗？ 有用吗？ 或许根本就实现不了。

 

A

archy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #7

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle,
GWL_STYLE,
GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);
Height := ClientHeight;
end;

可以的。

 

A

archy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #8

不满意。

 

梦

梦中过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #9

操啊，我来回答，先在public中申请一个过程
procedure tform1.createparams(var params:tcreateparams);override;
然后再写过程procedure TForm1.CreateParams(var Params:TCreateParams); //实现窗体无标题
begin
inherited createParams(params);
params.style:=(Params.style or ws_popup)and not ws_Caption;
end;

end.

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #10

Form 的Create中加入
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE)
and not WS_CAPTION and not WS_TILEDWINDOW);
height := ClientHeight;