D5: TTreeView ignoriert Zuweisung DragCursor?

[michaelg]

Wenn Du den "globalen" DragCursor benutzt, gehts nicht, aber wenn Du den Sender (in diesem Fall direkt l1:tListbox) nimmst, dann klappts.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    l1: TListBox;
    l2: TListBox;
    procedure l2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure l1StartDrag(Sender: TObject; var DragObject: TDragObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.l1StartDrag(Sender: TObject; var DragObject: TDragObject);
  begin
    //l1 ist eine tListbox mit Multiselect:=True
    if l1.SelCount>1 then l1.DragCursor:=crMultiDrag  //<<<<<<<<< HIER!
                     else l1.DragCursor:=crDrag;
  end;