Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

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

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

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

---

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

OnCloseQuery
?

---

← →
Vit@ly ©   (2004-08-25 10:00) [2]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.03 c