Fórum Evento KeyPress ou KeyDown em formulário MDI #321208
11/05/2006
0
Gostaria de saber porque em formulário MDI um evento de confirmação do fechamento do form não é reconhecido a tecla ESC por exemplo.
Ex. KeyDown
if (Key = VK_ESCAPE) then
if (MessageDlg(´Deseja realmente sair´, mtConfirmation, [mbYes,mbNo],0) = mrYes) then
Close;
Em form normal funciona.
Desde já agradeço.
Ex. KeyDown
if (Key = VK_ESCAPE) then
if (MessageDlg(´Deseja realmente sair´, mtConfirmation, [mbYes,mbNo],0) = mrYes) then
Close;
Em form normal funciona.
Desde já agradeço.
Mstange
Curtir tópico
+ 0
Responder
Posts
12/05/2006
Erileyvb
infelizmente nnão funciona.
Responder
Gostei + 0
15/07/2006
Edivaldo_ap
Bom nos Formulários Filhos eu consegui fazer dessa maneira.
No KeyPreview do formulário você deve colocar [i:f01bd28cbd]True.[/i:f01bd28cbd]
Abaixo segue código do Evento OnKeyPress do Formulário.
Aqui funcionou, porém, no formulário pai eu não consegui fazer mas que por um lado é até bom que não tenha, evita de o usuário dar um Esc e mais e fechar a aplicação.
Espero ter ajudado, depois nos diga se funcionou.
No KeyPreview do formulário você deve colocar [i:f01bd28cbd]True.[/i:f01bd28cbd]
Abaixo segue código do Evento OnKeyPress do Formulário.
procedure TFormConfUsuario.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then btnSairClick(Sender);
end;Aqui funcionou, porém, no formulário pai eu não consegui fazer mas que por um lado é até bom que não tenha, evita de o usuário dar um Esc e mais e fechar a aplicação.
Espero ter ajudado, depois nos diga se funcionou.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)