Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.02 c
6-79098
Wizard_1
2003-09-29 22:45
2003.11.24
FTP


14-79163
NoviceA
2003-10-31 11:26
2003.11.24
Ставим рекорд!


4-79241
BFG
2003-09-25 14:06
2003.11.24
Копирование ntuser.dat


1-78934
Afonya
2003-11-07 09:54
2003.11.24
Создание компонента нестандартной таблицы


1-78949
R
2003-11-12 04:08
2003.11.24
Оптимальность и целесообразность применения констант