TButton in VirtualTreeView einfügen

[generic]

aufgrund eine pn anfrage von bar.

hier nochmal eine demo zum löschen der knoten.
hab etwas mehr object orientierte programmierung reingebracht.
aber nach wie vor hat das demo charakter!

gruss

[Natia]

Hallo leute, das Thema ist schon alt aber kein ding

@Bacardifeeling
wie machst du wenn Node.State = vsExpanded ist?
Ich meine, Ich kann Button zum Tree hinfügen, aber es bleibt sichtbar, wenn ich den Parent minimiziere.

Hat jemand irgendein Lösung dafür?

Danke im Voraus.

[Aviator]

Es gibt die Events OnCollapsing und OnCollapsed. Da solltest du ansetzen. Im OnCollapsing könntest du die Buttons entsprechend wieder unsichtbar schalten oder freigeben. Wenn du sie frei gibst, dann musst du sie natürlich im OnExpanding wieder erstellen.

[Natia]

Danke für die Hilfe, es hat mir sehr geholfen

[Natia]

Hallo noch einmal

Am OnCollapsing un am OnExpanded habe ich erfolgreich mein Button gezeigt/versteckt.

Das problem ist jetzt aber nur, wenn ich den oberen Node minimisiere, geht der undere nach oben(so sei es)....aber Buttons bleiben darunter://

Mein InitNode(wo ich Buttons erzeuge)

Code:

 Data.RefreshButton := TButton.Create(nil);
    Data.RefreshButton.Parent := VST;
    Data.RefreshButton.Height := VST.DefaultNodeHeight;
    Data.RefreshButton.Caption := 'Refresh';
    R := Sender.GetDisplayRect(Node, 2, False);
    Data.RefreshButton.BoundsRect := R;
    Data.RefreshButton.Visible := True;
    Data.RefreshButton.Enabled := True;
    Data.RefreshButton.Node := Node;
    Data.RefreshButton.OnClick := RefreshbtnClick;
    Sender.SetNodeData<TService>(Node, Service);
    Node.CheckType := ctNone;

OnCollapsing event:

Code:

  if Assigned(Node) then
  begin
    Child := Sender.GetFirstChild(Node);
    while Assigned(Child) do
    begin
      Data := Sender.GetNodeData<TService>(Child);
      Data.RefreshButton.Visible := False;
      Child := Sender.GetNextSibling(Child);
    end;
  end;

OnExpanded event:

Code:

  if Assigned(Node) then
  begin
    Child := Sender.GetFirstChild(Node);
    while Assigned(Child) do
    begin
      Data := Sender.GetNodeData<TService>(Child);
      R := Sender.GetDisplayRect(Child, 2, False);
      Data.RefreshButton.BoundsRect := R;
      Data.RefreshButton.Visible := True;
      Child := Sender.GetNextSibling(Child);
    end;
  end;

gruss