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

Нужно заблокировать в 1 из форм Alt + F4.   Найти похожие ветки 

← →
Леонид   (2003-08-29 03:24) [0]

Нужно сделать так, чтобы в одной из форм при нажатии этой комбинации не происходило ни какого действия, то бишь выход или закрытие формы.


← →
Е-Моё имя ©   (2003-08-29 03:42) [1]

попробуй пункт меню назначить на это сочетание, хоткей
в обработке-пусто


← →
DrFox ©   (2003-08-29 03:50) [2]

надо обрабатывать событие FormCloseQuery
примерно так
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not(CanBeClose) then CanClose:=false;
end;


← →
имя   (2003-08-29 03:51) [3]

Удалено модератором


← →
Е-Моё имя ©   (2003-08-29 07:40) [4]

DrFox ©
надо не запретить закрыть форму, а "чтобы в одной из форм при нажатии этой комбинации не происходило ни какого действия"


← →
Zergling ©   (2003-08-29 08:04) [5]

Е-Моё имя © (29.08.03 07:40) [4]

>> действия, то бишь выход или закрытие формы.


← →
Е-Моё имя ©   (2003-08-29 09:36) [6]

Zergling © (29.08.03 08:04)
да, спасибо, мне лень было дописать
))))))

пусть автор скажет чо ему надо
я так понял, что запрещать закрытие не надо - это же не вечная форма ;))


← →
АлексейК   (2003-08-29 09:56) [7]

Перекрой WndProc.


← →
DrFox ©   (2003-08-31 19:38) [8]

>>DrFox ©
>>надо не запретить закрыть форму, а "чтобы в одной из форм при
>>нажатии этой комбинации не происходило ни какого действия"

Так я о чем НИКАКИХ ДЕЙСТВИЙ (в том числе и закрытия формы промы)
происходить не будет!

А если надо форму все таки закрыть то происваеваем переменной
CanBeClose значение false и ВСЁ !!!!


← →
DrFox ©   (2003-09-01 15:51) [9]

Прошу прошения за БАГ в предыдушем ответе
Для того чтобы розрешить закрытие формы надо
дать переменной CanBeClose значение True, а не False !!! :)



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

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



Память: 0.46 MB
Время: 0.016 c
14-33729
Knight
2003-08-22 10:46
2003.09.11
А у нас горячую воду дали!!!


1-33560
DrFox
2003-08-27 10:46
2003.09.11
Как заблокировать кнопку


3-33511
sash2
2003-08-19 22:15
2003.09.11
Проблема с переносом 2.


1-33544
Banderlog
2003-08-29 11:38
2003.09.11
Проверка файла на открытость


1-33536
dez
2003-09-01 19:03
2003.09.11
CoInitialize has not been called




   Наверх