Скачать: CL | DM;

Не могу убрать лишнюю кнопку в заголовке окна!   Найти похожие ветки 

← →
lext ©   (2003-11-14 21:00) [0]

Здравствуйте уважаемые мастера! Помогите, не могу справиться с этой задачей. В общем нужно исключить из заголовка окна кнопочку максимизации (т.е. мне нужно чтоб остались только "_" и "Х" кнопки. Нашел в инете много чего по этому вопросу и вписал такой код:
procedure TForm2.FormActivate(Sender: TObject);
var hMenuHandle: hMenu;
begin
hMenuHandle:=GetSystemMenu(Form2.Handle, False);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_RESTORE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
end;
но это не помагает. Могу убрать все кнопки, кроме этой. А по закону подлости именно ее и нужно :)
Может кто сталкивался с такой проблемой?

---

← →
Eagle Owl ©   (2003-11-14 21:37) [1]

В свойствах формы кнопки убираются...

---

← →
WithOut Any ... ©   (2003-11-14 21:51) [2]

>Eagle Owl © (14.11.03 21:37) [1]
В общем то сомневаюсь.
lext © (14.11.03 21:00)
А что так сильно портит дизайн. Мне кажется проще на BorderIcons установить False на любую желаемую кнопку

---

← →
lext ©   (2003-11-14 21:56) [3]

Да не все так просто, в свойствах формы кнопки убираются, но не эта. А вопрос не в дизайне, а в требованиях к программе. Типа защиты от вездесущих пользователей :) В общем это действительно требуется.

---

← →
WithOut Any ... ©   (2003-11-14 22:06) [4]

Я что-то не очень понял. В свойствах формы
BorderIcons (кликнуть на "+")
и на biMaximize выставляешь False.
Никакой пользователь не сможет ее максимизировать.
Иначе я не понимаю вопроса

---

← →
ChecheNeC ©   (2003-11-14 22:19) [5]

короче на form1.create
прописываешь что то типа
form1.bordericons(biMinimize, biSystemMenu);
мне помогло:)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c