Focus auf den eingefügten Knoten setzen!

Silvia · Beiträge: 67

Hallo,

Ich möchte ein neuen Knoten in ein Treeview einfügen und dem eingefügten Knoten den Fokus geben!
Ich klicke mit der rechten Maustaste auf ein Knoten dann z.B. einfügen neuen Knoten, der Koten öffnet sich und der
eingefügte Knoten blinkt zum umbenennen!

Wie ermittel ich den count des eingefügten Knotens?

Gruß

Moderiert von Tino: Topic aus Sonstiges verschoben am Fr 18.02.2005 um 11:36

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Habe ich das richtig verstanden, du willst zur Designtime einen Knoten einfügen, und wenn du diest tust fängt der neue Knoten an zu blinken? :?:

Welche Delphiversion hast du?

wulfskin · Verfasst: Do 17.02.05 14:06

Hallo,

ich verstehe dich so, als das du das ganze zur Laufzeit ermittlen möchtest. Wenn du einen Knoten hinzufügst, dann erhälst als Rückgabewert ein Object vom Typ TListItem. Diese Objekt hat dann eine Eigenschaft Index oder ähnliches.
Wenn du diesem Knoten den Fokus geben möchtest, dann setze die Eigenschaft Selected (und Focused) des Baumes auf dieses Objekt.

GRuß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Silvia · Beiträge: 67

Dephi 7!

rechte Maustaste auf Knoten, dann Einfügen aus Kontext. Knoten wird erstellt und soll wie bei der Funktion umbenennen
den Text zum umbenennen markieren (blinken!)

Silvia · Beiträge: 67

Ich habe es mir so vorgestellt!

markieren

Delphi-Quelltext

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

procedure TForm1.Wertebereich1Click(Sender: TObject);
begin
treeView1.Items.AddChild(treeView1.Selected,'Wertebereich');
treeview1.Selected.Item[1].Focused := true;
treeview1.Selected.Expand(false);
//treeview1.Selected.Item['Wertebereich'].Focused := true;
umbenennen1click(nil);
end;

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Silvia hat folgendes geschrieben:

Rechte Maustaste auf Knoten, dann Einfügen aus Kontext[menu]. Knoten wird erstellt und soll wie bei der Funktion umbenennen
den Text zum umbenennen markieren

Du meinst EditText?

markieren

Delphi-Quelltext

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

Var
 TreeNode: TTreeNode;
begin
 TreeNode := TreeView1.Items.AddChild(...);
 TreeNode.EditText;
end;

Silvia · Beiträge: 67

Ja,

das war es!

Danke!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme