Create a form with a client edge

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

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

|招呼Ta 关注Ta

4 `& }; B+ g$ E4 o# v( U |% G5 K1 H Answer: % i8 U2 M9 d) ]4 L, ?! DYou 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:/ }2 M8 `# u7 o2 v5 K3 d! N+ o void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams)3 }% H' J+ V8 G, A {) u. r& H7 R8 d TForm::CreateParams(Params); // call base class first6 c, u3 a/ R4 r Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style$ h" y6 |) Y* i8 K1 d8 E6 c2 k, M. E }

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. ! A" ^9 b9 g7 Y7 O

zan