Hallo
ich habe ein DbGrid und möchte aus dem einen Datensatz (Zeile) per Drag&Drop auf eine andere Komponente verschieben.
Das Problem:
Wenn ich DragMode auf dmAutomatic setze, lässt sich kein Datensatz per anklicken anwählen. Ausser mit der rechten Maustatse aber wer macht das schon?
Mein Versuch DragMode auf dmManual und dann
Delphi-Quellcode:
procedure TForm.DbGridMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then { Drag-Operation nur starten, wenn linke Maustaste gedrückt wird }
BeginDrag(False, 10); { Falls ja, Drag-Operation starten sobald um mehr als 10 Pixel verschoben }
end;
schlägt fehl, weil das MousDown nur ausgelöst wird, wenn ich nicht auf einen Datensatz klicke. Also unter die letzte Zeile oder in den Header. Jetzt kann ich zwar zuerst den Datensatz auswählen und dann unter die letzte Zeile gehen und von dort verschieben, aber das ist auch alles andere als normal.
Wie kann ich das MousDown auch bekommen, wenn ich auf einen Datensatz klicke?
Danke für eure Hilfe
Gerd