Position im Treeview auslesen

[nahpets]

Unter Delphi 7 hat ein TreeView die Eigenschaft Selected für den ausgewählten Zweig.

Selected wiederum hat die Eigenschaft AbsoluteIndex (ein Integerwert).

Mit TreeView.Items[i].Selected := True kann man einen Eintrag auswählen.

Ungetestet müsste eigentlich sowas in der Art gehen:

Delphi-Quellcode:

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveIntegerToConfig('AbsoluteIndex',TreeView.Selected.AbsoluteIndex);
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  TreeView.Items[ReadIntegerFromConfig('AbsoluteIndex')].Selected := True;
end;