Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
16. Jan 2008
Hallo,
die folgende Prozedur arbeitet mit einem Objekt zur Zwischenspeicherung, sie könnte annähernd Deinen Anforderungen entsprechen. Du solltest aber noch prüfen ob alle Randbedingungen abgefangen werden :angel2:
procedure MoveMultiSelectLVItem(LV: TListView;iDest: Integer);
var vLV : TListView;
vListItems : TListItems;
aItem : TListItem;
z,iTempDest : Integer;
begin
vLV...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
14. Jan 2008
Hallo,
die Prozedur kommt mir irgendwie bekannt vor :wink:
Was hindert Dich daran für jedes Item die Prozedur aufzurufen?
Du könntest die Items über ein TListItems-Objekt übergeben und dann in der Prozedur eine Schleife einbauen.
Oder direkt einen Zeiger auf die Listview übergeben und in der Prozedur dann Selected auswerten.
So oder so, es ist immer eine Schleife erforderlich.