Create a form with a client edge

韩冰

4 T* D6 G) Y: ?Answer: You can create a form with a client edge overriding the CreateParams function and adding the WS_EX_CLIENTEDGE style to Params.ExStyle.

. w5 B* q1 l. D; ]

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

0 X- W- ~: F- ]. g

private: void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams) $ W9 e: R& ^! n { # N# k5 m v( J# G* f TForm::CreateParams(Params); // call base class first ( K* o1 E4 u: p/ g* j: h Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style : K2 L0 T1 c. h# L$ c }

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.