Create a form with a client edge

韩冰

4 s+ {, O7 E6 |0 NAnswer: ! }3 ~8 F" j0 rYou 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.

2 I- K( ]# }4 k: k& Q

private: ) Y: A& w7 n1 ^- Y! r void __fastcall CreateParams(TCreateParams &arams);

Step 2: Code the function.

void __fastcall TForm1::CreateParams(TCreateParams &arams) ( Q# L$ b0 w+ s" W+ ~( X { TForm::CreateParams(Params); // call base class first & v( i, E5 `) t+ n. @ Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style }

6 m4 A1 ~2 T# D' i% v4 U

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. ! r j0 X0 A- } z1 L; \$ e