Hallo,
ich möchte gerne von einer Listbox einen Eintrag per Drag und Drop
in eine zweite Listbox zu übertragen.
Stelle ich die Eigenschaft DragMode auf dmAutomatic, kann man die
Gesamte Listbox verschieben, was kein Problem darstellt.
Um einen Eintrag zu verschieben, verwende ich folgende Procedure,
die schon mal in einem meiner früheren Projekte geklappt hat.
Compiliere ich jetzt mein Projekt, bekomme ich eine Fehlermeldung,
Undeklarierter Bezeichner an der Stelle:
StartPosition := ItemAtPos(StartingPoint,True) ; und natürlich auch
an DropPosition := ItemAtPos(DropPoint,True) ;
Fehlt mir hier eine
Unit, die ich noch einbinden muss ? oder wie
ist die vorgehensweise bei Firemonkey Listboxen, das er den gewählten
Eintrag verschiebt ? auch die Property BeginDrag habe ich nicht mehr
gefunden.
Hat evtl. jemand ein Code-Sample ? kann auch mit Stringgrid sein, wie das
jetzt unter FMX zu realisieren ist?
procedure TForm12.ListBox1DragDrop(Sender: TObject;
const Data: TDragObject; const Point: TPointF);
var
DropPosition, StartPosition: Integer;
DropPoint: TPointF;
begin
DropPoint.X := point.X;
DropPoint.Y := point.Y;
with Data.Source as TListBox do
begin
StartPosition := ItemAtPos(StartingPoint,True) ;
DropPosition := ItemAtPos(DropPoint,True) ;
Items.Move(StartPosition, DropPosition) ;
end;
end;
Danke !