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

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

Наверх




Память: 0.49 MB
Время: 0.055 c
3-1098101578
OlegL
2004-10-18 16:12
2004.11.14
cxGrid


14-1098989890
Alein
2004-10-28 22:58
2004.11.14
Интеграция драйверов в дистрибутив Windы


1-1099292775
snake1977
2004-11-01 10:06
2004.11.14
Таймер в потоке


3-1097501972
iat
2004-10-11 17:39
2004.11.14
QReport "периодически" не позволяет печатать


6-1094244415
AlexG
2004-09-04 00:46
2004.11.14
Имя пользователя, работающего на компьютере