Create a form with a client edge

韩冰

Answer: 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.

( U: e2 |" B! `) D# h6 C

private: . k& I* a' r/ q% I9 H void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams) # U0 u/ [4 z! d" E$ c1 P4 j { TForm::CreateParams(Params); // call base class first 1 X2 O8 B w, Q Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style + V" r1 N$ o; b. ` }

8 g8 p+ {+ j6 ?" t' j$ r( Z" y

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.