Problema Com Pesquisa

[Pirambu!]

Estou com um problema, criei um formCliente e um FormPesquisaCliente, quando o formCliente estar aberto eu abro o formPesquisaCliente com um popmenu pesquiso o cliente que estou procurando usando um query, mais não consigo retornar ao formCliente sendo que vá direto ao Cliente selecionado.

Alguém tem uma idéia de como eu posso resolver este problema :(

[Micheus]

Pirambu!, está faltando mais informações para auxiliá-lo.

Em formCliente, o campo cliente é a descrição ou o código que você vai armazenar? O que você espera receber como retorno de formPesquisaCliente?

Eu costumo utilizar algo mais ou menos assim:

no formPesquisaCliente

- declaro uma variável na sessão public que será do tipo de dado a ser retornado;

- no evento do botão OK (ou equivalente) inicializo esta variável;

O botão que valida a consulta deve ter sua propriedade ModalResult setada para mrOK

no formCliente

- crio o formPesquisaCliente ao ser feita a consulta;

- chamo testo o retorno da função criada em formPesquisaCliente e se for mrOK;

- destruo o formPesquisaCliente após a consulta;

Ex.:

em formPesquisaCliente:

type
  TformPesquisaCliente = class(TForm)
    ...
  public
    CodCliente :LongInt;
  end;
...
procedure TformPesquisaCliente.btnOKClick(Sender :TObject);
begin
  CodCliente := qryPesquisaClienteCODIGO.AsInteger;
end;

em formCliente:

procedure TformCliente.btnSelecionaCliente(Sender :TObject);
begin
  formPesquisaCliente := TformPesquisaCliente.Create(Self);
  try
    if formPesquisaCliente.ShowModal = mrOk then
      tabQualquerCOD_CLIENTE.AsInteger := formPesquisaCliente.CodCliente;
  finally
   formPesquisaCliente.Free; 
  end;
end;

[]s

[Guest Pirambu]

Cara Valeu pela força, deu certo.

Obrigado! :)