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

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

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

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.

« Предыдущая статья		Следующая статья »