alt+f4

← →
Jenek (2004-08-25 09:46) [0]

Как при использовании программы отключить сочетание клавиш Alt+F4

← →
VMcL © (2004-08-25 09:56) [1]

OnCloseQuery
?

public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;

{...}

implementation

{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
Handled := True; // don"t allow ALT-F4
end;
end;

alt+f4 Найти похожие ветки