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

Вниз

Alt + F4   Найти похожие ветки 

 
liver   (2005-05-31 10:38) [0]

каким образом запретить на форме шоткат Alt+F4


 
Ega23 ©   (2005-05-31 10:41) [1]

А почему его надо запрещать???


 
Алхимик ©   (2005-05-31 10:42) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := true;
end;

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


 
Алхимик ©   (2005-05-31 10:45) [3]

Или так:
procedure TfrmMain.FormShow(Sender : TObject);
begin
  MessageDLG("Жмакать Alt+f4 запрещаю!",mtWarning,[mbOk],0);
end;


 
liver   (2005-05-31 10:53) [4]

Спасибо


 
TUser ©   (2005-05-31 10:59) [5]

Лучше всего - TActionList кинуть и создать там Action с пустым обработчиком.



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

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

Наверх




Память: 0.47 MB
Время: 0.049 c
14-1116941725
vecna
2005-05-24 17:35
2005.06.14
МВД собирается застраховать россиян от совершения преступлений


1-1117235832
Dark123us
2005-05-28 03:17
2005.06.14
ошибка при попытке выгрузки Dll


1-1117524140
Mars
2005-05-31 11:22
2005.06.14
Как закрыть все окна приложения?


14-1117189084
sofs
2005-05-27 14:18
2005.06.14
3ds max


3-1115872215
Sergun
2005-05-12 08:30
2005.06.14
BLOB в DbGridEh