一个窗体,左边放treeview,右边放一个panel,当单击treeview的一个节点时,在panel上显示用form或frame设计的内容!即在panel调

http://download.pchome.net/development/delphi/850.html
或者自已到 www.google.com 查找 lmd and delphi (这也的我说晕)

谢谢!
哈 哈 世上还是好人多!

各位有没有相关的例子,让我好好研究一下!
免得老是害的别人晕倒

你的意思是想在form_main 上显示其它form 上的内容对吧! 如果是 LMD 的
LMDdisplayform 是一个panel看上去外形有点象，呵呵 它有你想要的功能
无需什么例子

各位有没有treeview使用的详细的例子,在网上搜了一下,就是找不到,希望大虾给予帮助!
甚望!
关系到小人的饭碗!
只有一百分了!

可以应用这个控件：BilleniumEffects v.2.7或者应用Lmd.v.6.0.72中也有这
样的一个控件。比自己做要省事得多。

你好累啊，帮你一把！

和我联系：QQ:88128680

to jun:
你的解答比较切合我的问题,因此给你50分!
问题是treeview当中的各个节点和子节点怎么和LMDdisplayform一一对应起来?
感觉treeview的level 和index很难和lmddisplayform匹配!
能不能给俺一个例子!
有怎么一个结构：
A---a1----a11
| |--a12
| |--a13
|-a2---a21
| |--a22
| |--a23
|-a3
当我单击a22时通过lmddisplayform调用forma22；单击a23时调用forma23；其他依次类推！
to others:
谢谢各位的捧场!每人各得10分!

你可以 单击a22时获得 a22字符串再加上form=forma22 这就行了[!]

-附加说明--------------------------------------------------------------
增加根目录下的节点节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild(
TvwTips.Items.GetFirstNode,'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;

增加下一级目录(内容):
var
ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;

TipNode := TvwTips.Items.AddChildObject( ParentNode,'New
Subject',Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;

(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点,函数类型为 :TTreeNode
TvwTips.Items.Count 返回当前TreeView的全部节点数,整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别,根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为 :TTreeNode

参数AFormObj是你要打开的窗体对象的名称，如果要在主窗体中
动态调用子窗体，建议使用一个全局数组变量，数组元素类型为
TForm ，在程序初始化时将所有子窗体对象的名称赋予数组元素
中，然后在TreeView中记录数组下标，然后在TreeView中选择，
得到要打开的窗体对象变量，赋予该函数的参数中
procedure TfrmMain.ShowModuleChildForm(AFormObj: TForm);
begin
//当该窗体已经创建，则提前，否则创建之（不要close）
if Assigned(AFormObj) then
begin
AFormObj.BringToFront;

end
else
begin
with AFormObj do
begin
Close;
BorderStyle := bsNone;
Parent := pnlMain; //pnlMain是主窗体上的一个panel
Align := alClient;
Show;
BringToFront;
end;//end of with

end;

FActiveForm := AFormObj; //私有变量，记录当前活动窗口对象，不要也行

end;

多人接受答案了。

to bnpysse：
关于BilleniumEffects控件的问题，请多多帮助。

该问题的URL是: http://www.delphibbs.com/delphibbs/dispq.asp?LID=1268972