Create a form with a client edge

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

7 J& X5 g$ n, l4 ^ Answer: 6 X( l# b, O' _/ z, t You 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: ( c2 q& c6 o7 ~' w* v$ L void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams)& o/ w8 l0 j0 Z7 A0 ~5 z6 e { : P' p6 y# ^* ]* ~ TForm::CreateParams(Params); // call base class first# \7 r# F2 |, k9 O K$ Q( A Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style 4 L3 A$ C- H, s/ |* b. A }

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. & E4 H" l" ?4 e4 E) p7 r

zan