Вниз
Скачать: 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.012 c
3-33476
Vena
2003-08-20 15:30
2003.09.11
Alias


14-33733
Zhirnov Maxim
2003-08-25 10:12
2003.09.11
Как вычисляется CRC?


1-33607
som
2003-09-01 13:27
2003.09.11
Как программно создать ярлык?


1-33676
tvic
2003-08-29 15:44
2003.09.11
Произвольная кнопка


14-33731
Дмитрий_Б
2003-08-25 07:52
2003.09.11
Не ставится MS SQL Server 2000 Desktop Engine




   Наверх