[Resolvido] Chamar uma Procedure do proprio Delphi.

[TeDs 0]

Eu to precisando executar uma procedure em outro evento que não seja o dele mesmo.

 

No caso essa:

 

procedure TfPesquisar.btOkClick(Sender: TObject);

begin

If rgPesquisar.ItemIndex = 0 Then Begin

//lbPesquisar.Caption := 'Codigo';

ibqSelect.Close;

ibqSelect.SQL.Clear;

ibqSelect.SQL.Text := ' Select * From ENTIDADES Where ENTIDADEID Like ' + QuotedStr('%' +edPesquisar.Text+ '%');

ibqSelect.Open;

End;

 

If rgPesquisar.ItemIndex = 1 Then Begin

//lbPesquisar.Caption := 'Nome';

ibqSelect.Close;

ibqSelect.SQL.Clear;

ibqSelect.SQL.Text := 'Select * From ENTIDADES Where Upper(ENTIDADE) Like Upper(' + QuotedStr('%'+edPesquisar.Text+ '%')+ ')';

ibqSelect.Open;

End;

 

If rgPesquisar.ItemIndex = 2 Then Begin

//lbPesquisar.Caption := 'Contato';

ibqSelect.Close;

ibqSelect.SQL.Clear;

ibqSelect.SQL.Text := 'Select * From ENTIDADES Where Upper(CONTATO) Like Upper(' + QuotedStr('%' + edPesquisar.Text+ '%')+ ')';

ibqSelect.Open;

End;

 

 

end;

Só que quero que ela seja executada no Evento OnChane do Edit (edPesquisar).

 

Tentei colocar como se fosse um procedure "manual" mais não adiantou chamar apenas pelo nome: btOkClick;

 

Assim:

procedure TfPesquisar.edPesquisarChange(Sender: TObject);

begin

btOkClick;

end;

 

Alguem sabe se isso é possivel?

[Maikel Scheid 1]

Olá

 

Não seria apenas o caso de colocar assim?

btOkClick(Sender);

Se você colocar isso no OnChange do Edit, a cada tecla pressionada no Edit o evento OnClick do botão será executado.

 

Att

 

Maikel

[TeDs 0]

Deu certo mesmo, seria muito pedir para falar qual a diferença entre não colocar o Sender.

 

Eu tinha tentando com self mais não tinha funcionando.

 

Abraços e muito OBRIGADO

[bdexterholland 0]

Quando passa o sender, voce está dizendo que tem que ser o objeto que chamou o método, self é o formulário...

 

Faz um teste a toa, coloca naquele método um

ShowMessage(Sender.ClassName);

[TeDs 0]

Valeus Pessoal ;)