TForm i TApplication
2.08.1999
  • Tworzenie formy bez paska tytułowego.

       Pasek tytułowy formy możesz usunąć poprzez ustawienie BorderStyle na bsDialog i "subclassing" funkcji CreateParams. Wewnątrz tejże funkcji wyczyścisz bity WS_CAPTION w Params.Style.

Krok 1: Dodaj deklarację CreateParams do klasy formy:

private:
        void __fastcall CreateParams(TCreateParams &Params);
Krok 2: Wpisz kod funkcji:

void __fastcall TForm1::CreateParams(TCreateParams &Params)
 {
  TForm::CreateParams(Params); //wywołuje klasę bazową
  Params.Style &= ~WS_CAPTION; //teraz czyści bity WS_CAPTION
 }
Uwaga: WS_CAPTION jest zdefiniowany w \INCLUDE\WINRESRC.H jako:

#define WS_CAPTION 0x00C00000L /* WS_BORDER | WS_DLGFRAME */
Uwaga: Jeżeli potrzebujesz formy z możliwością zmiany rozmiarów i bez paska tytułowego, zmień CreateParams w ten sposób:

void __fastcall TForm1::CreateParams(TCreateParams &Params)
    {
        TForm::CreateParams(Params); //wywołuje klasę bazową
        Params.Style &= ~WS_DLGFRAME;
        Params.Style |= WS_POPUP;
    }
      Tutaj BorderStyle ustaw na bsSizeToolWin.