procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected.Parent<>nil then
Showmessage(TreeView1.Selected.Parent.Text);
end;
begin
if TreeView1.Selected.Parent<>nil then
Showmessage(TreeView1.Selected.Parent.Text);
end;
解决方案 »
- 求助~~ ado里查询 count(*)
- 主窗口用SetWindowPos后的问题
- 200分求PsFRExportFilters(fastreport导出附加控件),能用马上给分
- ActiveForm里怎样读取 它所在HTML页里的param参数?
- DELPHI好书大放送, 大家快去下载
- 我用ODBC连接SYBASE速度特别慢,有其它的方式吗?
- 请教高手:delphi在连接oracle数据库时的问题
- 自动弹出问题
- 出现错误file not found:'Dsgnintf.dcu',这是怎么回事?我用的是D6
- 一个初学者的问题
- 请教大家一个有关IE类型的Toolbar问题(比较特殊的toolbar遮挡问题)
- 用delphi编写一个“foxmail”……
Treeview.Selected.Parent
var
Node:TtreeNode;
begin
Node:=TreeView1.Selected.Parent;
if Node<>nil then
Showmessage(Node.text);
end;