Fórum Form Localizar #176970

Pessoal,

Seguinte: criei um form para localizar um registro. O usuario deve digitar o nome do cliente ou o código. O projeto compila, mas quando executo dá um erro: ´Could not find the object´. Se eu retiro este form do projeto, executa normalmente... Onde posso estar errando? O código segue abaixo:

unit UFrmProcurar;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, DB;

type
TFrmProcurar = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DbgProcurar: TDBGrid;
Btn_Buscar: TBitBtn;
TipoLoc: TRadioGroup;
EditLoc: TEdit;
Btn_Cancelar: TBitBtn;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Btn_CancelarClick(Sender: TObject);
procedure Btn_BuscarClick(Sender: TObject);
procedure EditLocChange(Sender: TObject);
procedure EditLocKeyPress(Sender: TObject; var Key: Char);
procedure DbgProcurarCellClick(Column: TColumn);
procedure DbgProcurarDblClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmProcurar: TFrmProcurar;
SqlCli : String;

implementation

uses UFrmDados, UFrmCliente;

{$R *.dfm}

procedure TFrmProcurar.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(27) then
Close;
end;

procedure TFrmProcurar.Btn_CancelarClick(Sender: TObject);
begin
Close;
end;

procedure TFrmProcurar.Btn_BuscarClick(Sender: TObject);
begin
close;
FrmCLiente.LocalizaCli(FrmDados.QCLienteID.Value);
end;

procedure TFrmProcurar.EditLocChange(Sender: TObject);
begin
if EditLoc.Text <> ´´ then
begin
if TipoLoc.ItemIndex = 0 then
begin
FrmDados.QCLiente.Locate(´ID´, EditLoc.Text,[lopartialkey]);
SQLCLi := ´SELECT ID, CNome FROM Tb_cliente where ID like ´ + quotedstr(EditLoc.Text+´¬´);
end
else
begin
FrmDados.QCliente.Locate(´CNome´, EditLoc.Text,[lopartialkey]);
SQLCli := ´SELECT ID, CNome FROM Tb_cliente where CNome like ´ + quotedstr(EditLoc.Text+´¬´);
end;

FrmDados.QCliente.Close;
FrmDados.QCliente.SQL.Clear;
FrmDados.QCliente.SQL.Add(SQLCLi);
FrmDados.QCliente.Open;
FrmDados.QCliente.First;
end;
end;

procedure TFrmProcurar.EditLocKeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) Then
Btn_Buscar.Click;
end;

procedure TFrmProcurar.DbgProcurarCellClick(Column: TColumn);
begin
EditLoc.Text := FrmDados.QClienteCNome.Value;
end;

procedure TFrmProcurar.DbgProcurarDblClick(Sender: TObject);
begin
Btn_Buscar.Click;
end;

procedure TFrmProcurar.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
FrmDados.QCliente.Close;
Close;
end;

procedure TFrmProcurar.FormCreate(Sender: TObject);
begin
SqlCLi := ´SELECT ID, CNome FROM tb_cliente where CAtivo = true´;
FrmDados.QCliente.Close;
FrmDados.QCliente.SQL.Clear;
FrmDados.QCliente.SQL.Add(SqlCli);
FrmDados.QCliente.Open;
FrmDados.QCliente.First;

end;

end.