frage zu treeview

[Christian Seehase]

Moin Zero,

Jens' Beispiel mit dem OnChange Ergeignis:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
  If Node<>Nil then 
    Memo1.Text:=Node.Text; 
end;

Dein Source aus dem Eingangsposting:

Delphi-Quellcode:

procedure TForm1.InfolistClick(Sender: TObject); 
begin 
  if infolist.Selected.Text='test' 
    then memo1.text('test blablabla'); 
end;

Ergibt zusammen

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
  If Node<>Nil then 
  begin
    if Node.Text = 'test' then
      Memo1.Text:='test blablabla';
  end;
end;

Mein Hinweis mit der Zuweisung eines Resourcestrings

Memo1.Text := _rsText1; Das jetzt zusammengeführt ergibt:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
  If Node<>Nil then 
  begin
    if Node.Text = 'test' then
      Memo1.Text := _rsText1;
  end;
end;

Was mir allerdings ein Rätsel ist:
Wie bist Du denn hierauf gekommen?

Memo1.Text:=_rs1.Text;