Create a form with a client edge

韩冰

2 x/ K) f) G; l+ L; U3 r( H& hAnswer: You can create a form with a client edge overriding the CreateParams function and adding the WS_EX_CLIENTEDGE style to Params.ExStyle.

' g% {/ t/ I: c4 f6 t7 l4 _7 r

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

7 q1 t |$ T X/ {

private: void __fastcall CreateParams(TCreateParams &arams);

) `0 }% q5 X, ~3 ~! [2 k$ a

Step 2: Code the function.

8 D. R( @9 c Q$ `

void __fastcall TForm1::CreateParams(TCreateParams &arams) 6 P4 c9 X7 @# l& n! ^3 W! X { TForm::CreateParams(Params); // call base class first % r$ r8 f+ p t C F+ T' o# d. F Params.ExStyle |= WS_EX_CLIENTEDGE; // then add the style }

) ^4 y* U( M3 b0 L% D

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.