Вниз
Скачать: CL | DM;

как убрать кнопку "закрыть" из заголовка окна и системного меню?   Найти похожие ветки 

 
tchn   (2004-10-29 01:36) [0]

убрать кнопку "закрыть" из заголовка окна и системного меню? ну, и чтобы по ctrl+f4 окно не закрывалось тоже


 
Гаврила ©   (2004-10-29 01:38) [1]

У формы есть в инспекторе св-во по поводу показа кнопок. А вообще не давать закрывать - это заподло ,все равно через процессы сорвут


 
tchn   (2004-10-29 01:43) [2]

мне нужно оставить кнопки minimize и maximize, а убрать тока close. то свойство так сделать не позволяет.
а западло/не западло -- это уже другой вопрос


 
Германн ©   (2004-10-29 02:47) [3]

2 Решай через OnClose.


 
tchn   (2004-10-29 09:25) [4]


> Германн ©   (29.10.04 02:47) [3]
> 2 Решай через OnClose.

как это? запретить закрытие окна можно через OnCloseQuery, но мне нужно СОВСЕМ кнопку


 
BillyJeans   (2004-10-29 10:16) [5]

Обрабатывай сообщение WM_CLOSE


 
-=SS=- ©   (2004-10-29 10:25) [6]


procedure TForm1.FormCreate(Sender: TObject);
var
 hMenuHandle:THandle;
begin
   hMenuHandle := GetSystemMenu(Handle, FALSE);
   if (hMenuHandle <> 0) then
     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);


 
-=SS=- ©   (2004-10-29 10:38) [7]


> и чтобы по ctrl+f4 окно

А оно и не закроется :)))))
а если по <Alt+F4> то  
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Canclose:=False;
end;


 
Гаврила ©   (2004-10-29 10:44) [8]

Убери все кнопки, потом нарисуй минимайз и максимайз руками


 
tchn   (2004-10-29 10:46) [9]


> -=SS=- ©   (29.10.04 10:25) [6]

хорошо. убрали Close из меню, запретили кнопку Close в заголовке. а УБРАТЬ СОВСЕМ эту кнопку можно?

> -=SS=- ©   (29.10.04 10:38) [7]
>
> > и чтобы по ctrl+f4 окно
>
> А оно и не закроется :)))))

насчет Ctrl-F4 это я, конечно, хватил. сорри :-)


 
-=SS=- ©   (2004-10-29 12:19) [10]

Можно но только придется еще и Minimize и Maximize кнопки убирать


 
tchn   (2004-10-29 12:54) [11]

все понятно :-D



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

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



Память: 0.47 MB
Время: 0.02 c
1-1098887850
Lexx3D
2004-10-27 18:37
2004.11.14
Re: Смена языков программы...


6-1093250377
Lex_!
2004-08-23 12:39
2004.11.14
Веб чат на дельфи, работа с Response


10-1062767704
karan
2003-09-05 17:15
2004.11.14
Общие вопросы по DCOM


3-1097522029
Morrison
2004-10-11 23:13
2004.11.14
Глюк: Query не находит полей...


14-1099019637
XL-DiB
2004-10-29 07:13
2004.11.14
Как узнать какие файлы читает процесс ?




   Наверх