Hallo,
ich möchte gerne mehrer einträge einer TJVCChecklistbox verschieben.
mit einem eintrag habe ich es hinbekommen...
das ganze soll in etwa so werden wie im Windows MediaPlayer oder Winamp geht.
hier ist mein qullcode:
Delphi-Quellcode:
var
index,newIndex:Integer;
i:Integer;
begin
if Sender <> Source then begin
// TJvCheckListBox(Source).MoveSelection(TJvCheckListBox(sender));
TJvCheckListBox(Source).CopySelection(TJvCheckListBox(sender));
end
else begin
// index:=TJvCheckListBox(Source).ItemIndex;
newIndex:=TJvCheckListBox(Source).ItemAtPos(Point(x,y),true);
for i:=0 to TJvCheckListBox(Source).Count-1 do begin
if TJvCheckListBox(Source).Selected[i] = True then begin
TJvCheckListBox(Source).items.exchange(i,newIndex);
TJvCheckListBox(Source).Selected[NewIndex]:=True;
end;
end;
end;
aufjedenfall geht das so nicht, ich weiß auch noch nicht warum(leider).
es gibt keine fehlermeldung er verschiebt auch nur an die falsche position
(ich arbeitet mit unendliche vielen listboxen dahrer habe ich den oben gezeigten weg gewählt !
ich hoffe ihr könnt das problem nachvollziehen !