Delphi:将分配的帧显示给树视图的节点 [英] Delphi: show assigned Frame to Node of Tree View
问题描述
我没有框架经验。
如何使用框架的树视图?
我需要在树视图的点头之间切换,并将所分配的帧显示到所选节点。
How to use a Tree View with frames? I need to switch among nods of the Tree View and show assigned Frame to the selected node.
大大感谢帮助!!!
推荐答案
如果节点的 Data
指针到一个框架或任何其他类型的对象,typecast指向它所持有的对象类型的指针。
It doesn't really make any difference if the Data
of nodes hold a pointer to a frame or any other kind of object, typecast the pointer to the type of object it holds.
下面的代码添加了两个框架('Frame2'和'Frame3'由IDE创建 - 非常像一个新窗体),作为TreeView的节点,并将所选节点的框架的可见性设置为true,并将取消的框架设置为false。
Below code adds two frames ('Frame2' and 'Frame3', created by the IDE - much like a new form), as nodes of a TreeView, and sets the visibility of the selected node's frame to true and the deselected one's to false.
type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormCreate(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure FormDestroy(Sender: TObject);
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TreeView1.Align := alLeft;
with TFrame(TreeView1.Items.AddObject(nil, 'Frame2', TFrame2.Create(nil)).Data) do begin
Visible := False;
Parent := Self;
Align := alClient;
end;
with TFrame(TreeView1.Items.AddObject(nil, 'Frame3', TFrame3.Create(nil)).Data) do begin
Visible := False;
Parent := Self;
Align := alClient;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i := 0 to TreeView1.Items.Count - 1 do
TFrame(TreeView1.Items[i].Data).Free;
end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
TFrame(Node.Data).Visible := True;
end;
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
if Assigned((Sender as TTreeView).Selected) then
TFrame(TTreeView(Sender).Selected.Data).Visible := False;
end;
这篇关于Delphi:将分配的帧显示给树视图的节点的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!