Create a form with a client edge

韩冰

5 D3 O$ @6 h3 \9 P- tAnswer: 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.

0 V/ h) ]6 @7 R3 Z x

private: void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

/ l% t& P! r) u; K/ ^' w* \! d7 m8 {

void __fastcall TForm1::CreateParams(TCreateParams &arams) ; H1 l4 d& ^, V. N1 T9 h1 s { ; z* i8 @' q5 W0 }) @% D e TForm::CreateParams(Params); // call base class first Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style }

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.