caro este codigo es el que funciona como yo queria
DBGridFoco : TDBGrid; //Nuestra variable global
en el codigo de tu boton
if DBGridFoco = DBGrid1 then
begin
cod:= adotable1.fieldbyname('Codigo').AsInteger;
desc:= adotable1.fieldbyname('Servicio').AsString;
end;
if DBGridFoco = DBGrid2 then
begin
cod:= adotable2.fieldbyname('Codigo').AsInteger;
desc:= adotable2.fieldbyname('descripcion').AsString;
end;
//Ahora en el evento OnEnter de cada DBGrid
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
DBGridFoco := DBGrid1;
end;
procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
DBGridFoco := DBGrid2;
end;
espero poder encontrate pronto en el foro pq seguramente tendre mas dudas y necesito terminar el programa para poder recibirme.[/b]
muchas graciass