Buenas tengo un error que me lleva loco cuando doy click sobre el grid me muestra error de focus solo algunas veces
mi código es el siguiente esta desarrollado en delphi XE8
Código Delphi
[-]var
importado,activo:string;
begin
if accion = 'ver' then
begin
with datos.sqbuscarequipo do
begin
GroupBox1.Enabled:=True;
grp1.Enabled:=True;
grp2.Enabled:=True;
edtcodigo.Text:=FieldByName('eq_codigo').AsString;
edtcodigo.Enabled:=False;
edtdescripcion.Text:=FieldByName('eq_descripcion').AsString;
edtdescripcion.ReadOnly:=True;
Edtmarca.Text:=FieldByName('eq_marca').AsString;
edtmarca.ReadOnly:=True;
edtcosto.Text:=FieldByName('eq_costodiario').AsString;
edtcosto.ReadOnly:=True;
edtmodelo.Text:=FieldByName('eq_modelo').AsString;
edtmodelo.ReadOnly:=True;
importado:=FieldByName('eq_importado').AsString;
activo:=FieldByName('eq_activofijo').AsString;
edtvaloraqui.Text:=FieldByName('eq_valor').AsString;
edtcop.Text:=CurrToStr(FieldByName('eq_factor').AsCurrency);
rbimpno.Enabled:=False;
rbimpsi.Enabled:=False;
rbafsi.Enabled:=False;
rbafno.Enabled:=False;
btneliminar.Visible:=False;
edtvaloraqui.Enabled:=False;
edtcop.Enabled:=False;
if importado = 'True' then
begin
rbimpsi.Checked:=True;
end
else
if importado = 'False' then
begin
rbimpno.Checked:=True;
end;
if activo = 'True' then
begin
rbafsi.Checked:=True;
end
else
if activo = 'False' then
begin
rbafno.Checked:=True;
end;
end;
end;