Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
4-1091041350
Sulimxar
2004-07-28 23:02
2004.09.12
Окно между курсором и формой


1-1093858252
XAdmin
2004-08-30 13:30
2004.09.12
Видимиость пользоваетльского типа из дургого Unit


10-1036136259
kostik78ua
2002-11-01 10:37
2004.09.12
Коннекты остаются :(


8-1087928833
Larrr
2004-06-22 22:27
2004.09.12
Как одновременно проиграть wav-file и прогнать процесс?


6-1089017150
Анонимщик
2004-07-05 12:45
2004.09.12
TServerSocket OnClientDisconnect