Для создания окна без заголовка с любым стилем контура сделайте следующее:
Добавьте объявление процедуры
procedure CreateParams(var Params: TCreateParams); override; |
и ее реализацию:
procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME; end; |
Установите BorderStyle в bsSizeable. [000353]