Drag & Drop in ListView

[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

[alcaeus]

Delphi-Quellcode:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  Accept := Source is TListView; 
end;

DragMode bei beiden Lists auf dmAuto und dann gehts...zumindest bei mir.

[Jens Schumann]

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.

[shareholder]

danke hat funktioniert !