Zitat von
shareholder:
so, die suche hat mir nicht geholfen.
muss man für's draggen und droppen eine eigene funktion schreiben oder gibt es schon eine vordefinierte ?
ich habe bislang nur:
Delphi-Quellcode:
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TListItem;
end;
DragMode := Automatic;
es funzt aber nicht
edit: ich habe vsIcon eingestellt
Kann es sein das TListItem gar nicht der Source ist, sondern der passende TListView? Wenn Du wissen möchtest welches TListItem gemeint ist, kannst Du in Source über Selected darauf schließen. Das TListItem, dass gezeogen wird, ist in Source mit Sicherheit das TListItem auf das Selected zeigt.