Hola mjjj.
Disculpas, recién veo tu última consulta.
En el evento
MouseDown, deberías controlar que el cursor no esté sobre el título:
Código Delphi
[-]
procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
P: TPoint;
begin
case Button of
mbLeft: if MouseCoord(X,Y).Y <> 0 then BeginDrag(True); mbRight: begin
P:= ClientToScreen(Point(X,Y));
PopupMenu.Popup(P.X,P.Y);
end
end;
inherited;
end;
Saludos