| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

alt+f4 [D6, Win95/98]

Jenek ©   (2004-08-25 09:46:00) 

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

---

Vit@ly   (2004-08-25 10:00:00) [1]

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;

---

VMcL   (2004-08-25 09:56:00) [2]

OnCloseQuery
?

---

Наверх