高分给一treeview 树 实列(200)

M

mmmzzzggg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #1

我是菜鸟 刚接触DELPHI treeview 没搜到教程 请高手给个treeview 结点被选中单击后 弹出窗体的 实列 谢谢

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #2

procedure TForm1.TreeView1Change(Sender: TObject
Node: TTreeNode);begin if TreeView1.Selected=nil then exit
ShowMessage(TreeView1.Selected.Text);end;

 

M

mmmzzzggg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #3

这个不 ONCLICK 事件 我要选中接点 单及 并跳出窗口

 

C

Corn3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #4

TreeView1.OnClick:var Item: TTreeNode
TempForm: TForm;begin Item := TreeView1.Selected
if Item <> nil then begin TempForm := TForm(Item.Data)
if TempForm = nil then Application.CreateForm(TempForm, TTempForm)
TempForm.ShowModal
end;end;

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #5

老实说，不明白你的要求。200大洋应该不是问这么简单的问题。procedure TForm1.TreeView1MouseDown(Sender: TObject
Button: TMouseButton
Shift: TShiftState
X, Y: Integer);VAR t:THitTests;begin t:= TreeView1.GetHitTestInfoAt(X, Y)
if htOnLabel in t then showmessage('点击文字')
if htOnIcon in t then showmessage('点击图标');end;

 

M

mmmzzzggg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #6

就是 点 树的item .text 跳出一个MDI FORM 树里有不同的 ITem 点饥 不通的 接点 跳出不同的FORM

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #7

procedure TForm1.Button2Click(Sender: TObject);begin TreeView1.Items.AddChildObject(nil,'Form3',TForm3);end;procedure TForm1.TreeView1Click(Sender: TObject);var Node:TTreeNode;begin Node:=TreeView1.Selected
if Node=nil then exit
If Node.Data=nil then Exit
TCustomFormClass(Node.Data).Create(Self).Show;end;

 

M

mmmzzzggg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #8

你的 代码 我用不上 汗算了 还是自己在看看书吧

 

M

mmmzzzggg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-27

• #9

多人接受答案了。