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
 }