Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: Drag Drop ListView kurz vor Verzweifelung

  Alt 8. Mär 2007, 20:31
Hallo,

wahrscheinlich ist das keine schlechte Idee, wenn du ein wenig Quellcode zeigst, denn ich vermute, dass du das Phänomen mit deinem eigenen Code verursachst. Einfach zwei ListViews auf eine Form gezogen und ViewStyle = vsReport und DragMode = dmAutomatic und man erkennt, dass die Markierung eigentlich nicht bleibt:

Delphi-Quellcode:
procedure TDemoForm.ListViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Sender <> Source)
        and (Sender is TListView)
        and (Source is TListView);
  if Accept then
    with Sender as TListView do
      Accept := Assigned(GetItemAt(X, Y));
end;
Grüße vom marabu
  Mit Zitat antworten Zitat