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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Билл Гейтс плохо учился в школе. Бывало, только смотрит в окно и ничего не делает. Любил он окна.

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

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

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.