Evitar fechamento de janela

Delphi

18/05/2008

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


Felipeiw

Felipeiw

Curtidas 0

Respostas

Dbergkamps10

Dbergkamps10

18/05/2008

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


GOSTEI 0
Felipeiw

Felipeiw

18/05/2008

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

Abs


GOSTEI 0
POSTAR