Delphi VirtualDrawTree: Sinnvolles automatisches Scrollen

Thema durchsuchen

Ansicht

Themen-Optionen

VirtualDrawTree: Sinnvolles automatisches Scrollen

Ein Thema von s.h.a.r.k · begonnen am 8. Jan 2010 · letzter Beitrag vom 8. Jan 2010

Vorheriger Beitrag

Nächster Beitrag

s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge

Re: VirtualDrawTree: Sinnvolles automatisches Scrollen

8. Jan 2010, 02:55

Hab mir gerade selbst die Lösung gegeben. Ich habe die besagte Option aktiviert, sodass nicht automatisch gescrollt wird. Das vertikale Scrollen habe ich dann über das Ereignis OnChange gelöst:

markieren

Delphi-Quellcode:

			procedure TframeMain.vdtDataChange(Sender: TBaseVirtualTree;

  Node: PVirtualNode);

begin

  if (not Assigned(node)) then exit;

  if (node = vdtData.GetFirstSelected) then

    vdtData.ScrollIntoView(Node, False, False);

end;

Die Methode ScrollBy() hatte auch nicht wirklich funktioniert.