Архив форумов ЦИТФорума

[f110]

Delphi 5. Нужно чтобы форма не закрывалась по комбинации по Alt+F4. Заранее спасибо!

[Oracul]

Самое простое это переназначить нажатие этих кнопок пустой процедуре. И все. Наслаждайся.

[anthony]

-

[яяя]

-

[anthony]

-

[f110]

KeyPreview:=true;

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