Desculpe a demora da resposta: Aqui ficou o Form View: procedure TFrmEstado.btnPesquisarClick(Sender: TObject); var i : Integer; begin if validaPesquisa then begin lvGrid.Items.Clear; Estado.Pesquisar(edtValor.Text, lvGrid) ; if ResultadoQuery = 0 then MsnAlerta('Erro', 'Vazio') else begin lvGrid.Items[0].Selected := True; // Exibir(mImpimir); end; end; AjustaForm; end;
Pensando bem, acho que isso fugiria a lógica de separação de camadas... Pq a função faz parte do meu controller... Vc poderia fazer um exemplo de como ficaria...