Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Блокировка кнопки закрытия модального окна.   Найти похожие ветки 

 
F1   (2005-10-24 10:44) [0]

Добрый день.
Каким обоазом можно сделать недоступной кнопку закрытия окна?
Заранее благодарен.


 
Desdechado ©   (2005-10-24 10:57) [1]

пишешь в обработчике OnClose
Action := caNone;


 
ZZZ   (2005-10-24 11:43) [2]

выдает ошибку: несоответствие типов


 
Leonid Troyanovsky ©   (2005-10-24 11:44) [3]


> F1   (24.10.05 10:44)  

> Каким обоазом можно сделать недоступной кнопку закрытия окна?


var
 amenu: HMenu;
begin
 with TFormX.Create(nil) do
   try
     amenu := GetSystemMenu(Handle, False);
     EnableMenuItem(amenu, SC_CLOSE, MF_BYCOMMAND or MF_DISABLED);
     ShowModal;
     ..
   finally
      Free;
   end;
end;

--
Regards, LVT.


 
Leonid Troyanovsky ©   (2005-10-24 11:48) [4]


> ZZZ   (24.10.05 11:43) [2]
> выдает ошибку: несоответствие типов


Что, где, когда

--
Regards, LVT.


 
F1   (2005-10-24 11:50) [5]

1, 2 варианты не проходят


 
F1   (2005-10-24 11:52) [6]


> Что, где, когда

в 1-ом варианте ошибка: Несоотв. типов.


 
F1   (2005-10-24 11:53) [7]


> Desdechado ©   (24.10.05 10:57) [1]
> пишешь в обработчике OnClose
> Action := caNone;

Несоотв. типов.


 
msguns ©   (2005-10-24 11:53) [8]

Событие TForm.OnCloseQuery


 
Leonid Troyanovsky ©   (2005-10-24 11:53) [9]


> F1   (24.10.05 11:50) [5]
> 1, 2 варианты не проходят

> в 1-ом варианте ошибка: Несоотв. типов.


Не верю.

--
Regards, LVT.


 
Antonn ©   (2005-10-24 12:49) [10]

procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
 DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.041 c
14-1129786438
Udaff
2005-10-20 09:33
2005.11.13
ТВ-тюнер


1-1129899360
kyn66
2005-10-21 16:56
2005.11.13
Компонент текста под углом 90 гр.


1-1129285334
ZEWS
2005-10-14 14:22
2005.11.13
Как заскиновать ListBox


14-1129747418
LordOfRock
2005-10-19 22:43
2005.11.13
Подскажите чайнику! /не Делфи :(/


1-1129780400
Kulakov_an
2005-10-20 07:53
2005.11.13
Печать на принтере с разбиением на страницы