[TreeView, VCL Win32] Auto-Scroll bei FullExpand deaktiveren

sonic159 · Beiträge: 76 Windows XP BDS 2006 Professional

Hallo...

Gibt es eine möglichkeit das Scrollen während des Expandieren im TreeView zu unterbrechen,
so das immer das Parent-Item zu sehen ist?

Danke!
Son!c

Lannes · Verfasst: Mi 23.05.07 21:51

Hallo,

meinst Du Expandieren per Code oder durch Benutzeraktion?

Teste mal das im Ereignis OnExpanded, eventuell passt es so:

markieren

Delphi-Quelltext

1:
2:

if assigned(Node.Parent) then
  TreeView.TopItem := Node.Parent;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

sonic159 · Beiträge: 76 Windows XP BDS 2006 Professional

Expandieren per Code...

Es funktioniert leider nur teilweise!

Während er das Tree-Item Expandiert wird immer wieder das TopItem Selectiert,
wenn er dann aber Fertig ist mit dem Expandieren dann wird das letzte item sichtbar was NICHT
so sein soll, mein Ziel ist es, wenn er ferig mit dem Scrollen ist, das erste Item zu sehen!

Kurz: Er soll NICHT Scrollen

MfG: $on!c

sonic159 · Beiträge: 76 Windows XP BDS 2006 Professional

Kann mir denn keiner dabei helfen,
das Auto-Scroll bei TreeView1.FullExpand zu deaktivieren?

MfG: $on!c

Lannes · Verfasst: Di 29.05.07 17:47

Hallo,

dann setz doch nach dem Expandieren die Eigenschaft TopItem auf das erste Item des TreeView:

markieren

Delphi-Quelltext

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

with TreeView do
  begin
  Items.BeginUpdate;
  FullExpand;
  TopItem := Items[0];
  Items.EndUpdate;
  end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme