Форма изменяющая размеры без заголовка.

Нужно выставить свойство формы BorderStyle := bsNone;

Code:

type

TForm1 = class(TForm)

 

...

 

protected

   procedure CreateParams(var Params: TCreateParams); override;

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.Style := (Params.Style or WS_THICKFRAME);

end;

 

 

 

Автор feriman

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!