[Gudzik11]

Здравствуйте! Мне нужно чтоб форма была без возможности изменения размера и без возможности перемещения.

Подскажите как сделать ?
Если форма выглядит так

Код:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
   inherited CreateParams( Params );
  with Params do
  begin
    Style :=(WS_THICKFRAME or WS_BORDER or WS_POPUP);
  end;
end;

[robt]

borderstyle=bsNone

[Gudzik11]

не помогает

[Kailon]

Как не помогает? А Ваш код чего делать должен?

[robt]

а с какого хрена оно поможет если ты сразуже его опять включаеш в креатепарамах

[Gudzik11]

Код должен делать такое окно

[Gudzik11]

Сообщение от robt

а с какого хрена оно поможет если ты сразуже его опять включаеш в креатепарамах

А как его не включать ?

[ChinYan]

А как его не включать ?

Убрать WS_THICKFRAME и WS_BORDER

[Gudzik11]

так теперь нету стеклянной окантовки

[robt]

Сообщение от Gudzik11

так теперь нету стеклянной окантовки

зато не двигается и не растягивается,вопрос решон

[ChinYan]

так теперь нету стеклянной окантовки

Ну значит оставить WS_THICKFRAME

[Gudzik11]

А нельзя сделать так чтоб и WS_THICKFRAME осталось и окошко нельзя было перетягивать ?

[robt]

Сообщение от Gudzik11

А нельзя сделать так чтоб и WS_THICKFRAME осталось и окошко нельзя было перетягивать ?

перетягивают вообщето за заголовок

[Gudzik11]

не правильно выразился растягивать хотел сказать

[robt]

Сообщение от Gudzik11

не правильно выразился растягивать хотел сказать

ставиш обработчики на растягивание и игнориш его возвращая что уже обработан
WM_NCHITTEST