Главная страница
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.075 c
14-1116786734
Gero
2005-05-22 22:32
2005.06.14
Явное обострение


1-1117036352
Masta Hookah
2005-05-25 19:52
2005.06.14
Свойства файлов...


1-1117378688
Destroyer
2005-05-29 18:58
2005.06.14
Как использовать Drag&Drop для разных объектов?


1-1117529916
voron
2005-05-31 12:58
2005.06.14
математика


1-1117436537
juice
2005-05-30 11:02
2005.06.14
Автозапуск, системная политика Win2000