Fórum Uso do Form sem Mouse, rotina não é executada #58616

Olá!

Sou Desenvolvedor D7 + DBExpress + IB/FB.


Tenho o seguinte problema.

Tenho um Form Pai o qual faço Herança (inherited).
Uso as Seguinte teclas de atalho no Form:
<Botao Gravar>, <ALT+G>, <F10>-Grava dados, isto está
no form Pai.

No Form de PDV, no campo Cod.Produto, verifico se a tecla
<F10>, <ALT+F> foi pressionado e desvio para a rotina do
botão <Gravar>, até ai tudo bem.

Se eu usar o mouse para clicar no Botao <GRAVAR>, tudo
funciona corretamente como desejado.

Mas se eu usar o programa sem mouse, o problema ocorre que ao pressionar <F10>,
todo o procedimento é executado mas uma caixa de dialogo não é executada
até que eu pressione uma tecla.

Desejaria saber o que devo fazer para resolver este problema.


Desde já meus agradecimentos a quem puder ajudar nesta.

100+

ANT.CARLOS/SP




Veja a Rotina abaixo:


//------------------------------------
//.....Rotina do campo COD.PRODUTO
//------------------------------------
procedure TFrm_Movpdv4.Ed_codprodKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

IF (Key = VK_F10) Then Begin
IF DMPDV4.Cds_Itensvd.state IN [DsInsert,DsEdit] Then
DMPDV4.Cds_Itensvd.Cancel;
Frm_Movpdv4.Bit_gravarClick(Nil);
Exit;
End;

end;


//------------------------------------
//.....Rotina do Botão Gravar
//------------------------------------

procedure TFrm_Movpdv4.Bit_gravarClick(Sender: TObject);
Var Msg : String;
codcli, Codvenda : Integer;



begin
ActiveControl := nil;

IF NOT Verifica_Dados Then Begin
Abort;
Exit;
End;

Codvenda := DMPDV4.Cds_MovendaCodvenda.AsInteger;

Inherited;



//...Esta rotina não é concretizada
IF Application.MessageBox(´Deseja imprimir extrato de venda ?´,´Confirmação´,MB_YesNo+mb_IconQuestion) = mrYes THEN
Imprime_Extrato_Venda(Codvenda,´I´);


DMPDV4.cds_movenda.Append;
end;

---------------------