[[ElDioni]]

Hola, ahora no se muy bien lo que he hecho pero me aparece lo siguiente al compilar: Unsatisfied forward or external declaration:'TDBGrid.MouseDown'.
Voy a preguntar, aunque seguro que ahora me decis: "Pues claro que es por eso, lo tienes que quitar, como no nos lo has dicho antes".
Tenía puesto de un código anterior justo encima del

TForm1 = class(TForm)

la siguiente línea.

THackGrid = class(TDBGrid);

es de un código que saqué del club para hacer lo siguiente:

Código Delphi [-]
procedure TFrmMenuArt.DBGridArticulosExit(Sender: TObject);
begin
//guarda el texto seleccionado de la casilla donde estaba en una variable
//o el texto completo si no había nada seleccionado al salir del grid para
//luego hacer el filtro
try
if THackGrid(DBGridArticulos).InplaceEditor.SelText='' then
  begin
    if dbgridArticulos.Fields[dbgridArticulos.SelectedIndex].AsString<>'' then
      begin
        textofiltro:=dbgridArticulos.Fields[dbgridArticulos.SelectedIndex].AsString;
      end;
  end
else
  begin
    textofiltro:=(THackGrid(DBGridArticulos).InplaceEditor.SelText);
  end;
except
  textofiltro:=dbgridArticulos.fields[dbgridArticulos.selectedIndex].asstring;
end;
CampoFiltro:=dbgridArticulos.Columns[dbgridArticulos.selectedindex].FieldName;
end;

¿es posible que este código que os muestro esté creando conflicto con el nuevo código que me proponía Caro para el tema del MouseDown?
Es que si no es por eso no se porque no me funciona la solución propuesta.

Saludos.