Evitar fechamento de janela

18/05/2008

0

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

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar