TreeView scrollozása Drag and Drop közben

Megoldás az lesz, hogy a TreeView OnDrawOver eseményénél figyeljük az egér aktuális pozícióját és ha a TreeView tetejéhez vagy aljához közel (mondjuk 15 pixelnyire) kerül, akkor elvégezzük a TreeView scrollozását. Így láthatóvá válik a TreeView teljes tartalma. Az OnDrawOver esemény akkor jön létre, amikor egy Drag and Drop művelet folyamatban van TreeView komponens területe fölött.

Az OnDrawOver eseménynél tehát ellenőriznünk kell az egér y koordinátáját és ennek megfelelően egy WM_VSCROLL üzenet küldésével scrollozhatjuk azt.

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if y<15 then begin
    SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEUP, 0)
  end else begin
    if TreeView1.Height-y<15 then begin
      SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
    end;
  end;
end;

Mellékelt példában néhány Label komponenst húzhatunk Drag and Drop-al a TreeView komponens valamely elemére. A kiválasztott elem szövege a Label szövegét fogja felvenni. A Form-on lévő Label komponenseknél a DragMode property-t állítsuk dmAutomatic értékre. A TreeView komponensnél az OnDragDrop eseményt felhasználva csíphetjük el azt a pillanatot, amikor a felhasználó egy Label-t a TreeView-ra dob. Ekkor meghatározzuk az x y koordináta alapján, hogy melyik elemre került a Label, majd megváltoztatjuk annak az elemnek a feliratát.

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  node:=TreeView1.GetNodeAt(x, y);
  if node<>nil then begin
    node.Text:=(Source as TLabel).Caption;
  end;
end;