AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi FMX Listview item bewegen Drag & Drop

Delphi FMX Listview item bewegen Drag & Drop

Ein Thema von jacky213 · begonnen am 12. Dez 2019 · letzter Beitrag vom 15. Dez 2019
Antwort Antwort
jacky213

Registriert seit: 2. Mär 2011
146 Beiträge
 
#1

Delphi FMX Listview item bewegen Drag & Drop

  Alt 12. Dez 2019, 16:33
Hallo,

ich frage mich seit Stunden wie ich einen Item in einer Delphi FMX Listview per Drag & Drop oder per Button nach oben oder nach unten bewegen kann?

Danke
  Mit Zitat antworten Zitat
jacky213

Registriert seit: 2. Mär 2011
146 Beiträge
 
#2

AW: Delphi FMX Listview item bewegen Drag & Drop

  Alt 15. Dez 2019, 22:08
Schade das niemand eine Antwort für mich parat hatte. bin jedenfalls auf folgende Lösung gekommen:

Item in der Listview hoch:
Delphi-Quellcode:
procedure TfrmMain.upbtnClick(Sender: TObject);
var
  Litem : TListViewItem;
  idx:Integer;
begin
if not Assigned(Listview1.Selected) then Exit;
   idx := Listview1.Selected.Index;
   if idx > 0 then
      try
      Listview1.BeginUpdate;
      Litem := Listview1.Items.Insert(idx-1);
      with TListViewItem(Listview1.Items.Item[idx+1]) do
           begin
           LItem.Objects.FindObjectT<TListItemText>('Titel').Text
                := Objects.FindObjectT<TListItemText> ('Titel').Text;
           // in meinem Fall hatte jedes Listview Item mehrere Objekte
           end;
      Listview1.Items.Delete(idx+1);
      Listview1.ItemIndex := idx-1;
      finally
      Listview1.EndUpdate;
      end;
end;
Item in der Listview runter:
Delphi-Quellcode:
procedure TfrmMain.downbtnClick(Sender: TObject);
var
  Litem : TListViewItem;
  idx:Integer;
begin
if not Assigned(Listview1.Selected) then Exit;
   idx := Listview1.Selected.Index;
   if idx < Listview1.Items.Count-1 then
      try
      Listview1.BeginUpdate;
      Litem := Listview1.Items.Insert(idx+2);
      with TListViewItem(Listview1.Items.Item[idx]) do
           LItem.Objects.FindObjectT<TListItemText>('Titel').Text
                := Objects.FindObjectT<TListItemText> ('Titel').Text;
           end;
      Listview1.Items.Delete(idx);
      Listview1.ItemIndex := idx+1;
      finally
      Listview1.EndUpdate;
      end;
end;
Vielleicht hilft es dem ein oder anderen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz