Desabilitar ALT F4

Question

Como eu posso desabilitar o uso do ALT+F4 em um determinado form?Obrigado....

Henry · Accepted Answer

Brother, todo form tem um evento onclosequery, nesse evento vc deve bota a seguinte rotina:
canclose:= false;

ai no botao q vc vai usa pra fecha o form vc usa:
var canclose: boolean;
begin
canclose:= true;
form1.close;

Espero ter ajudado Henry.

Rodrigo_rcp · Answer

[code:1:46d1edb483] procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin   if key=vk_f4 then     abort; end; end.[/code:1:46d1edb483]...