Chamar um evento em outro evento de outro Edit

12/01/2022

0

Amigos tenho uma procedure da seguinte forma,
procedure TfrmVenda.ed_qtdeExit(Sender: TObject);
begin
ed_total_item.OnKeyPress(); {eis aqui o problema}
end;

no evento onexit do ed_qtde, quero executar o evento onKeyPress do ed_total_item, porém da forma que estão não funciona, abaixo a relação das formas que já tentei
ed_total_item.OnKeyPress(Sender);
ed_total_item.OnKeyPress(Self);
ed_total_itemKeyPress(Self);
ed_total_itemKeyPress(Sender);
ed_total_itemKeyPress(ed_total_item,key); {sendo key=13}

porém não executa não compila, o erro que da no log é
[DCC Error] venda.pas(6702): E2035 Not enough actual parameters.
[DCC Error] venda.pas(6702): E2033 Types of actual and formal var parameters must be identical
Geone Castro

Geone Castro

Responder

Posts

12/01/2022

Raimundo Pereira

Boa tarde!

Uma alternativa
Crie uma Procedure ed_total_itemPress;

procedure TForm1.ed_total_itemPress; // Novo procedimento
begin
//Pegue toda a rotina do ed_total_item.OnKeyPress e coloque dentro desta procedure
ShowMessage('Procedimento ed_total_itemPress');
end;


procedure TfrmVenda.ed_total_item(Sender: TObject);
begin
//Chame a nova procedure
ed_total_itemPress;

end;

procedure TfrmVenda.ed_qtdeExit(Sender: TObject);
begin
//Chame a nova procedure
ed_total_itemPress;
end;

Repare que ambos os edits lhe retornará
ShowMessage('Procedimento ed_total_itemPress');
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar