Create a form with a client edge

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 01:39 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

$ q$ j' o) D e6 p. M4 |- I5 J6 ]3 N Answer: / O' q. Y5 z: BYou can create a form with a client edge overriding the CreateParams function and adding the WS_EX_CLIENTEDGE style to Params.ExStyle.

Step 1: Add the CreateParams prototype to the form class.

private: 4 s% ?' o* [0 |- C1 ^+ o void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams) 9 C3 i1 V$ g/ I! R1 K1 w {$ G1 j1 n$ `0 J2 ?: p3 d9 ] TForm::CreateParams(Params); // call base class first# }6 n4 u9 F% o. b0 h9 W Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style% [$ N2 u B) B: [/ I }

If you would rather not bother with CreateParams, you can achieve identical results by placing a panel on your form. Set the Aligment property of the panel to alClient, set both BevelInner and BevelOuter to bvNone, and set the panel's BorderStyle property to bsSingle. : |: b9 a! W1 I) C* V7 \; I" s8 S8 E8 A

zan