Buenos días,
muchas gracias, de esta forma que me comentas si que funciona solo en el dbgrid que le pongo el código, pero lo he tenido que poner así
Código Delphi
[-]
procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
if Assigned(OnMouseDown) then
OnMouseDown(Self, Button, Shift, X, Y);
end;
Si yo ponía en el mousedown de mi dbgrid el siguiente código
Código Delphi
[-]
showmessage(FrmMenuArt.QueryOrdenes.fieldbyname('NOrden').AsString);
me mostraba el nº de orden en el que estaba y no en el que había hecho el mousedown al ponerlo como te comento si me lo hace bien.
De nuevo gracias a todos por su tiempo me han ayudado mucho.
Saludos.