Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

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

← →
Дремучий   (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]

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

:))

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

---

← →
OlegGashev   (2003-11-06 03:02) [4]

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

---

← →
Игорь Шевченко   (2003-11-06 10:45) [5]

Дремучий © (06.11.03 00:04)

1) Рисовать Caption своими руками
2) Смириться с тем, что есть

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c