TDBGrid + DragDrop + PopUp + Multiselect

[mjjj]

Utilizando el ejemplo me surgió un problema, resulta que cuando intento modificar el tamaño de la columna no me deja, ya que comienza el BeginDrag.

Como puedo descartar el BeginDrag en el evento MouseDown, si el cursos esta en el titulo del TDBGrid ??

Existe otra forma de hacerlo ??

[ecfisa]

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); // <- aquí
    mbRight: begin
               P:= ClientToScreen(Point(X,Y));
               PopupMenu.Popup(P.X,P.Y);
             end
  end;
  inherited;
end;

Saludos

[mjjj]

Gracias, funcionó perfecto.

Saludos