как запретить в форме Alt+F4?

← →
olevacho_ © (2006-08-29 13:59) [0]

← →
Fay © (2006-08-29 14:02) [1]

CloseQuery

← →
Loginov Dmitry © (2006-08-29 18:24) [2]

TActionList + ShortCut = Alt+F4

← →
AlexWlad © (2006-08-29 19:42) [3]

А тебя пользователь проги не прибьет??? Не стоит затирать стандартные сочетания.

← →
TUser © (2006-08-29 21:38) [4]

Зависит от формы

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

и KeyPreview := true;

← →
D7D (2006-08-30 04:06) [6]

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

100% поможет

как запретить в форме Alt+F4? Найти похожие ветки