Клавиши!!

← →
Серега (2003-03-23 00:14) [0]

Ув. мастера!! Как сделать чтобы программа не закрывалась по Alt+F4.

← →
Guerrillero © (2003-03-23 00:50) [1]

обрабатывай событие OnCloseQuery главной формы

← →
spogi (2003-03-23 01:14) [2]

On KeyDown

If (Key = VK_F4) and (ssAlt in Shift) then
Key=#0;

{
ssAlt in Shift
[ssAlt]=Shift
}
//sintaksis ne pomnyu, posmani v help

← →
Intell © (2003-03-23 18:06) [3]

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;
end;

← →
Serega (2003-03-23 18:32) [4]

Всем спасибо вы мне очень помогли!!!

Клавиши!! Найти похожие ветки