Главная страница
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.035 c
1-1117011502
KSK
2005-05-25 12:58
2005.06.14
кнопки SpeedButton


14-1117183135
boriskb
2005-05-27 12:38
2005.06.14
Долги


1-1117381279
Serg1981
2005-05-29 19:41
2005.06.14
Отдельный hint для каждого элемента ListView


1-1117392026
Dezmond
2005-05-29 22:40
2005.06.14
Высота Task Bar


6-1110720210
DereckWhite
2005-03-13 16:23
2005.06.14
API для работы с сетью