DBGrid-Drag-Problem

[Angel4585]

Hallo,

ich hab zur Abwechslung mal ein Problem mit nem DBgrid:

Ich habe zwei DBGrids nebeneinander und möchte von einem ins andere Grid "rüberdraggen".

Erste Frage war für mich: Wie starte ich das "Draggen"?

da OnMouseDown nicht fuppt und sonst auch keins wirklich Sinn macht habe ich mich für diesem Umweg entschieden:

Delphi-Quellcode:

procedure TForm1.Grid1Click(Sender : TObject);
begin
DBGrid1.BeginDrag(False,10);
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
TStringGrid(DBGrid1).OnClick:=Grid1Click;
end;

Komischerweise funktioniert das Draggen nich immer, manchmal passiert einfach garnichts, bzw. es wird nichts zum Draggen ausgewählt :(

Falls ihr euch fragt:
"Warum macht der nicht DragMode=dmAutomatic?" => Habt ihr das mal gemacht? da wird nichmal der Datensatz auf den man klickt ausgewählt(Sieht besch... aus)

Vielleicht fällt euch ja was dazu ein...

Danke schonmal

:angel:

Edit: Hmmmm.. ich glaub es hat sich erledigt, das Problem war scheinbar das ich nicht zweimal hintereinander aus der selben Spalte draggen konnt.. ich hab jetzt auf Rowselect geschaltet un jetz gehts auf einmal :wall:

:wall: :wall: :wall: :wall: :wall:
Wenn ich versuche die erste Spalte zu draggen funzts net.. bei den andern gehts aber lustigerweise :cry: