Evento KeyPress ou KeyDown em formulário MDI
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
Curtidas 0
Respostas
Erileyvb
11/05/2006
infelizmente nnão funciona.
GOSTEI 0
Edivaldo_ap
11/05/2006
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.
GOSTEI 0