Окно без заголовка

Для создания окна без заголовка с любым стилем контура сделайте следующее:

Добавьте объявление процедуры

procedure CreateParams(var Params: TCreateParams); override;

и ее реализацию:

procedure TForm1.CreateParams(var Params: TCreateParams);begininherited CreateParams(Params);with Params doStyle := (Style OR WS_POPUP) AND NOT WS_DLGFRAME;end;

Установите BorderStyle в bsSizeable. [000353]

Содержание раздела

---

---