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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

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

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

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.

{/codecitation}

Добавить комментарий