Listview selected property aquivalent bei VST???

[richard_boderich]

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.

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

[sakura]

Recht einfach:

Delphi-Quellcode:

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

......

[richard_boderich]

@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

[sakura]

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

......

[richard_boderich]

@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

[sakura]

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.

......

[semo]

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

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)

[Prototypjack]

Moin,

Zitat von M. Hassmann:

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?

Delphi-Quellcode:

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

Grüße,
Max

[semo]

wie gesagt:

Zitat:

(Pseudocode - not tested in IDE)

und du hast natürlich recht.