Chamar um evento em outro evento de outro Edit

12/01/2022

7

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
Responder

Posts

12/01/2022

P2

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar