Auto scrollen ListBox bei verschieben der items Drag&Dro

axellang · Beiträge: 44

Hallo Leute,

ich glaube das ich die Frage schon mal hier gesehen habe, doch trotz meiner intensiven suche, habe ich nichts gefunden.
Andere Foren brachten auch keine Ergebnisse.

So nun zur Frage:

Ich habe eine Listbox in der items per drag & drop hinein gezogen und nach oben / unten mit der Maus verschoben werden können.

Was muß ich machen, wenn ich ein item verschiebe die Listbox automatisch nach oben ggf. nach unten mitscrollt.

Gruß

Axel

axellang · Beiträge: 44

Hat sich erledigt.

Für alle die das selbe problem haben sollten, hier die Lösung:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  if (y < 15) then { an der oberen kante ab nach oben } 
    SendMessage(ListBox1.Handle, WM_VSCROLL, SB_LINEUP, 0) 
  else if (ListBox1.Height - y < 15) then { an der unteren kante ab nach unten } 
    SendMessage(ListBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 
end;

Axel

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme