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

Вниз

Народ подскажите как заблокировать Alt+F4 в своей программе.   Найти похожие ветки 

 
Oleg_V ©   (2002-10-30 12:36) [0]

зарание спасибо!!!!


 
Alx2 ©   (2002-10-30 12:42) [1]

>Oleg_V © (30.10.02 12:36)
KeyPreview должно быть равным true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift=[ssAlt]) and (Key=vk_F4) then Key := 0;
end;


 
roadster   (2002-10-30 12:43) [2]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_F4) and (ssAlt in Shift) then Key:=0;
end;


 
Oleg_v ©   (2002-10-30 12:50) [3]

и правда работает, как я не допер!!! еще раз спасибо!!!!!!


 
Song ©   (2002-10-30 14:00) [4]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;


 
Андрей Прокофьев ©   (2002-10-30 14:04) [5]

2 Song © (30.10.02 14:00)
?!
Просили же только Alt+F4!



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
4-21882
Nikolas ShmuS
2002-09-27 00:26
2002.11.07
Принудительно минимизировать!


1-21461
Luke
2002-10-24 20:41
2002.11.07
Поиск директорий


14-21784
PVOzerski
2002-10-19 03:08
2002.11.07
о мыши Genius


1-21624
Юлия
2002-10-26 17:51
2002.11.07
Изменение цвета ячеек grid-а


14-21731
Дремучий
2002-10-16 21:32
2002.11.07
cracked version of ReGet Deluxe