Chamar Procedure Delphi
Boa noite, tenho a seguinte procedure
procedure TfrmCliente.edtConsultaExit(Sender: TObject);
begin
(vazio)
end;
e gostaria de que essa procedure acima fizesse a mesma coisa que a procedure abaixo, sem ter que digitar todo código novamente, seria possível?
procedure TfrmCliente.btnPesquisarClick(Sender: TObject);
begin
(50 linhas de código)
end;
Alguém teria alguma sugestão de como faço?
procedure TfrmCliente.edtConsultaExit(Sender: TObject);
begin
(vazio)
end;
e gostaria de que essa procedure acima fizesse a mesma coisa que a procedure abaixo, sem ter que digitar todo código novamente, seria possível?
procedure TfrmCliente.btnPesquisarClick(Sender: TObject);
begin
(50 linhas de código)
end;
Alguém teria alguma sugestão de como faço?
Cesar Junior
Curtidas 0
Melhor post
Emerson Nascimento
24/03/2021
TfrmCliente.edtConsultaExit(Sender: TObject); begin btnPesquisarClick(Sender); end;
GOSTEI 2
Mais Respostas
Emerson Nascimento
23/03/2021
Ou
TfrmCliente.edtConsultaExit(Sender: TObject); begin btnPesquisar.Click; end;
GOSTEI 0
Cesar Junior
23/03/2021
Obrigado camarada, funcionou.
GOSTEI 0