Evitar fechamento de janela

18/05/2008

1

Tenho uma janela MDI de baixas de duplicatas, preciso travar a saida desta tela, se as parcelas selecionadas nao estiverem baixadas, nos botoes de pesquisa e saida da janela eu consegui, mas como fazer essa trava quando o usuario clicar no fechar janela ou utilizar o ALT+F4 ?

Abs


Responder

Posts

18/05/2008

Dbergkamps10

Olá,
Tente assim:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
VK_F4:
 begin
 key:=0;
 end;
end;
end;


Att
Dalton


Responder

18/05/2008

Felipeiw

Funcionou, Obrigado, porem e para travar o botao X (fechar) da janela ?

Abs


Responder