Главная страница
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.032 c
9-1110559906
Кирилл
2005-03-11 19:51
2005.06.14
*.MTL


14-1116766934
Piter
2005-05-22 17:02
2005.06.14
Вот все говорят LMD, LMD...


1-1116973210
redlord
2005-05-25 02:20
2005.06.14
сколько тиков работает винда


3-1115659500
xroot
2005-05-09 21:25
2005.06.14
Пустые поля


9-1110741932
parovoZZ
2005-03-13 22:25
2005.06.14
JEDI SDL - SDLSpriteEngine