| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как заблокировать прогу от Alt+F4 ? [D6, WinXP]
Олег © (2003-01-17 15:20:00)Помогите пожалуйста, может кто знает, как сделать так, чтобы комбинацией Alt+F4 нельзя было закрыть программу???
DVM (2003-01-17 23:34:00) [1]protected
{ Protected declarations}
Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
....
Procedure TFMain.WMGetSysCommand(var Message : TMessage) ;
Begin
IF (Message.wParam = SC_close)
Then begin
AShutDownExecute(FMain);
end
Else Inherited;
End;
Urn (2003-01-17 21:28:00) [2]Не слушай его, это большая задница!
mukha (2003-01-17 21:11:00) [3]А не проще заблокировать F4 чтобы не работала комбинация клавиш Alt+F4. Сам Alt блокировать не стоит, т.к. он может пригодиться в др. комбинациях. Ну и для самой формы KeyPreview поставить в true.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F4 then Key:=0;
end;
Думкин (2003-01-17 15:44:00) [4]Только может получится, что и по другому в итоге не закроешь - стандартным образом. %-)
Олег (2003-01-17 15:43:00) [5]спасибо, премного благодарен
Skier (2003-01-17 15:42:00) [6]CanClose := False;
Олег (2003-01-17 15:38:00) [7]простите мою тупость :( , но каким образом можно добиться желаемого эффекта, этим событием onCloseQuery ???
Skier (2003-01-17 15:21:00) [8]OnCloseQuery -> CanClose
OnClose -> Action
Th (2003-01-17 15:21:00) [9]событие OnCloseQuery
| |
