Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > CreateParams

Автор: Gudzik11 3.6.2012, 19:39

Здравствуйте! Делаю форму так

Код


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;

Мне нужно чтоб форма была без возможности изменения размера и без возможности перемещения ?

Подскажите как сделать ?

Автор: MetalFan 4.6.2012, 17:37

TForm.BorderStyle = bsSingle
TForm.Align = alCustom (подсмотрено в соседней теме)

Автор: Gudzik11 5.6.2012, 08:29

так не работае

Автор: MetalFan 5.6.2012, 12:40

Gudzik11, не работает что? рамер не меняется, перемещать форму нельзя. что еще надо?

Автор: Snowy 5.6.2012, 13:14

Цитата(Gudzik11 @ 5.6.2012, 09:29

)

так не работае

Если ты не убрал нафиг свой CreateParams, то конечно не работает...

Автор: Gudzik11 6.6.2012, 12:09

в том то и дело что мне нужно получить именно такую форму а не обычьную

Автор: Чучмек 6.6.2012, 13:05

Отличие стилей bsSingle и bsSizeable в том и заключается, что в bsSingle отсутствует флаг WS_THICKFRAME
Поэтому для создания рамки используй WS_EX_DLGMODALFRAME

Код


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
params.Style:=  WS_POPUP or WS_BORDER;
params.ExStyle:=WS_EX_DLGMODALFRAME or params.ExStyle;
end;