Убрать кнопку максимизации!

← →
Дремучий © (2003-11-05 22:19) [0]

форма имеет кнопку закрыть и минимизировать. Тем не менее кнопка максимизации тоже присутствует, хотя и не доступна. Как ее убрать?
Пробовал вот так:

procedure TfmMain.CreateParams(var Params: TCreateParams); begin with Params do Style:= Style and not WS_MAXIMIZEBOX; inherited CreateParams(Params); end;

не получается... :((

← →
Дремучий © (2003-11-05 22:51) [1]

меню убирается без проблем...

procedure TfmMain.WMNCCreate(var Message: TWMNCCreate);
var
SysMenu: HMENU;
begin
inherited;
SysMenu := GetSystemMenu(Handle, False);
DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
end;

а кпнопка...

← →
Игорь Шевченко © (2003-11-05 23:55) [2]

А кнопка остается. By design

← →
Дремучий © (2003-11-06 00:04) [3]

> Игорь Шевченко ©

:))

ну а по сабжу? как убрать-то?

procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons:=[];
end;

Убрать кнопку максимизации! Найти похожие ветки