Geht bei mir ja überhaupt nicht
Ich hab mir gedacht, in nehm ein eifaches Beispiel, das die markierten Einträge von ListView1 nach ListView2 gibt.
Net mal das kann ich
Delphi-Quellcode:
procedure TForm1.ListView2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Sender = ListView1 then Accept := true
else Accept := false;
end;
procedure TForm1.ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);
var i: integer;
Item: TListItem;
begin
if Source is TListView then
for i := 0 to ListView1.SelCount do
if ListView1.Items[i].Selected then
begin
Item := ListView2.Items.Add;
Item.Caption := ListView1.Items[i].Caption;
end;
end;
Wenn ich nun von ListView2 in diese selber ziehe, dann wir eine neue Spalte mit dem Titel, der gezogen wird, angelegt. Das ist natürlich auch Müll.
Und ich will ja keine Spalten, sondern zeilen.
Kann mir da vielleicht jemand helfen?