Mousedown bei DBGrid

[Rolf Hesse]

Liebe Forumianer!

Ich möchte von einem DBGrid aus ein Drag'n'Drop-Aktion starten.

1. Problem
Wenn ich dragmode des DBGrids auf dmAutomatic setze, kann ich nur noch mit der rechten Maustaste den Datensatz wechseln. (Mit der linken startet ganz normal das automatische BeginDrag.) Das ist nicht schön. Deshalb habe ich Dragmode auf dmManual gesetzt um im OnMouseDown ein BeginDrag durchzuführen, aber ...

2.Problem
Das MouseDown wird nur angesprungen, wenn ich auf die Spaltenköpfe klicke, nicht aber direkt auf den Datensätzen. Woran liegt das? Und: Kann man das ändern?

Vieln Dank im Vorraus!!

rolf

[Rolf Hesse]

Hallo nochmal!

Wie man ein ordentliches Drag('n'Drop)-Verhalten erzeugen kann, habe ich herausgefunden. Mit:

<PRE>
procedure TForm1.DBGrid1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
if csLButtonDown in Form1.DBGrid1.ControlState then
Form1.DBGrid1.BeginDrag(false);
end;
</PRE>

Aber was es mit MouseDown auf sich hat wüßte ich zu gern.

Grüße

rol