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

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

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

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

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.

старлайн а9 . Nightlife in San Diego . Скорочтение - ключ к успеху - салоны красоты в харькове. В салон красоты - со скидкой. .