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

Written on 22 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

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

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

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.