Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c