Tausend Dank Harry,
Für meinen Fall kann ich deine Demo 1:1 verwenden. Dankeschön nochmals.
P.S. Das könntest du in dein FMX Buch integrieren und ich kaufe dir gleich ein Update ab.
Gruß Kostas
Freut mich, dass es passt.
Die TListview-Komponente und einige Informationen dazu werden in meinem nächsten FMX-Buch zu Delphi 10 Seattle drin sein (Erscheinungszeitpunkt voraussichtlich Januar 2016).
Hello;
Multiselect: Listview1 > Listview2, drag and drop ok.
Delphi-Quellcode:
procedure TForm1.ListView2DragDrop(Sender: TObject;
const [Ref] Data: TDragObject; const [Ref] Point: TPointF);
var
Obj: IControl;
Index, I: Integer;
begin
Obj := ObjectAtPoint(Screen.MousePos);
if Obj <> Nil then
begin
Index := GetIndexAtPos(ListView2, Point);
if Index <> -1 then
begin
for I := ListView1.Items.Count - 1 downto 0 do
begin
if ListView1.Items[I].Data['Select'].ToString = 'OK' then
begin
ListView2.Items.Insert(Index);
ListView2.Items[Index].Data['Fit'] := ListView1.Items[I].Data['Fit'].ToString;
end;
end;
end;
end;
end;
Listview1, up or down.
Listview2, up or down. how can I do it.