TreeView Frage Hilfe bitte:)

[Tobiax]

Hallo , ich habe ein Problem ich will ein Treeview und eine Memo erstellen wenn ich im TreeView zb :

Sprachen
+Deutsch
+Englisch

jetzt wähle ich Englisch aus dann soll er eine Info über Englisch in der Memo anzeigen also wie speichere ich einen text oder eine funktion in eine node

Bitte um Hilfe bin noch Anfänger

Ps: Sry für Schreibfehler

mfg TobiaX

[Die Muhkuh]

Hi,

wieviele Sachen sollen den in Englisch angezeigt werden?

Wenn es um Lokalisierung einer Software geht, solltest Du mal nach selbigem hier suchen.

[Tobiax]

Das war nur ein Beispiel ich will eigentlich wenn man auf diese node klickt eine .txt datei in die Memo geladen wird die zb denn namen englisch.txt hat

[Die Muhkuh]

Du könntest z.B. überprüfen, ob das selektierte Item "Englisch" heißt und demnach den Code laden:

Delphi-Quellcode:

procedure TForm2.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.Text = 'Englisch' then
    Memo1.Lines.LoadFromFile('englisch.txt');
end;

[Tobiax]

Danke wieso bin ich nicht gleich drauf gekommen jetzt habe ich nur noch ein Problem wie kann ich es machen das zb Sprachen nicht Ausgewählt werden kann?
Ach ja mir ist gerade aufgefallen was mache ich wenn ich eine neue node per butten hinzufügen will ?

[Die Muhkuh]

Hi,

da bietet sich das Ereignis "OnChanging" an:

Delphi-Quellcode:

procedure TForm2.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  if Node.Text = 'Sprache' then
    AllowChange := false;
end;

[Die Muhkuh]

Simples Hinzufügen geht so:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  TreeView1.Items.Add(nil, 'Beschriftung');
end;

Es gibt noch eine Funktionen mehr, die mit Add* anfangen. Ein Blick in die Online-Hilfe ist das auf jeden Fall Wert.

[Tobiax]

Danke erstmal , das hinzufügen kenne ich schon aber ich muss ja auch angeben was es tun so wenn man drauf klickt wenn ich zb im code jetzt noch nicht reingeschrieben habe welche datei es öffenen soll wenn ich denn namen xxx eintrage.

PS: Mit AllowChange hat es irgendwie nicht geklappt habe es jetzt so geregelt

Delphi-Quellcode:

  if TreeView1.Selected.Text = 'Sprachen' then
  Memo1.Clear;

[Die Muhkuh]

Hi,

das kannst Du jetzt auf mehrere Arten lösen.

Eine wäre die Beschriftung gleich dem Dateinamen. Ist allerdings keine elegante Lösung.
Die andere wäre, dass Du dem Node eine Datenstruktur mitgibst, in der diese Informationen drin stehen. Jedes TTreeNode hat eine Eigenschaft Data, ein Pointer auf eine Datenstruktur, die sie hier sehr anbieten würde.

[Tobiax]

Hi, könntest du mir vl ein Beispiel dazu geben sry auch wenn du denkst ich habe mich damit nicht beschäftigt nein ich habe 2 Stunden im i-net gesucht aber nichts passendes gefunden hab auch schon einiges ausprobiert wäre sehr net danke schon mal.


mfg TobiaX