TForm i TApplication |
25.08.1999 |
- Tworzenie formy z ramką /CLIENT EDGE/.
Nadpiszemy funkcję CreateParams i dodamy styl WS_EX_CLIENTEDGE do Params.ExStyle.
//------------------------------------------------------
//w pliku nagłówkowym
private:
void __fastcall CreateParams(TCreateParams &Params);
//------------------------------------------------------
//w pliku źródłowym
void __fastcall TForm1::CreateParams(TCreateParams &Params)
{
TForm::CreateParams(Params); // najpierw wywołuje klasę bazową
Params.ExStyle |= WS_EX_CLIENTEDGE; // potem dodaje styl
}
|