Hallo zusammen!

Bei Listview gibt es das property "selected" mit dem ich den selectierten Row auch außerhalb von einem Listview Ereignis ermitteln kann. Ich habe damit die Möglichkeit z.B. im Buttonclick die Row zu ermitteln und damit an die Daten zu kommen.

markieren

Delphi-Quellcode:

TForm1.Button1click
begin
  If Listview1.selected then
    begin
     label1.caption:=listview1.selected.caption;
    end;
end;

Wie koennte ich sowas mit dem VST realisieren?

mfG Richard

Recht einfach:

markieren

Delphi-Quellcode:

TForm1.Button1click
begin
  If VST.FocusedNode <> nil then
    begin
      label1.caption := PDeineNodeData(VST.GetNodeData(VST.FocusedNode))^.DeinTextFeld;
    end;
end;

......

@Sakura

Danke erstmal für deinen Tipp. Der folgende abgewandelte Code funktioniert bei mir. Vielleicht kannst du nochmal drüberschauen.
Ich glaube dein Source bezog sich auf die Arbeit mit Records?

Label1.caption:=TOMeineDaten(vst.GetNodeData(vst.FocusedNode)^).Pfadname; mfG Richard

Zitat von richard_boderich:

Ich glaube dein Source bezog sich auf die Arbeit mit Records?

Yepp, präferiere ich beim VST Aber für Objekte ist Deine Variante auch gültig

......

@Sakura

Zitat:

Yepp, präferiere ich beim VST

Darf man Fragen warum? Ich arbeite eigentlich auch lieber mit Records, bin aber durch generic's Stammtisch Vortrag ermutigt
worden es mal mit Objecten zu probieren.

mfG Richard

Zitat von richard_boderich:

Darf man Fragen warum?

Nein Na gut... ich versuche im VST meist einfach nur Pointer zu meinen bereits verwalteten Listen zu hinterlegen, dann muss ich mich nicht separat um diesen Speicher kümmern, wenn der VST aufräumt und dann evtl. noch Dinge freigeben. Ist einfach nur Geschmackssache.

......

beim VST wird zwischen selected und focused unterschieden.
es kann nur ein focused node existieren, aber mehrere selected nodes.

daher musst du unterscheiden. entweder:

Label1.caption := TOMeineDaten(vst.GetNodeData(vst.FocusedNode)^).Pfadname; oder

markieren

Delphi-Quellcode:

Node := vst.GetFirstSelected;
while Assigned(Node) do
begin
  ShowMessage(TOMeineDaten(vst.GetNodeData(vst.FocusedNode)^).Pfadname);
  Node := vst.GetNextSelected(Node);
end;

(Pseudocode - not tested in IDE)

Moin,

Zitat von M. Hassmann:

markieren

Delphi-Quellcode:

Node := vst.GetFirstSelected;
while Assigned(Node) do
begin
  ShowMessage(TOMeineDaten(vst.GetNodeData(vst.FocusedNode)^).Pfadname);
  Node := vst.GetNextSelected(Node);
end;

Häh? Ich wage zu behaupten, dass bei diesem Code N-mal dieselbe Message ausgegeben wird.
Wenn du schon ein Node zum iterieren benutzt, wieso sprichst du es dann nicht auch an?

markieren

Delphi-Quellcode:

Node := vst.GetFirstSelected;
while Assigned(Node) do
begin
  ShowMessage(TOMeineDaten(vst.GetNodeData(Node)^).Pfadname);
  Node := vst.GetNextSelected(Node);
end;

Grüße,
Max

wie gesagt:

Zitat:

(Pseudocode - not tested in IDE)

und du hast natürlich recht.