各位大哥,怎么样在程序中对选中的节点的text进行修改? 各位大哥,怎么样在程序中对选中的节点的text进行修改?用什么命令?谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 什么节点呀,是树吗if assigned(treeview1.selected) then treeview1.selected.text := 'adsdffdsdf'; 就是treeview的节点呀!if assigned(treeview1.selected)是什么意思吗? if assigned(treeview1.selected) then判断是否有结点补选中 procedure TForm1.Button3Click(Sender: TObject);begin if TreeView1.Selected <> nil then TreeView1.Selected.Text := Edit1.Text;end; 将Edit1中的内容给选种的对象。 procedure TForm1.Button3Click(Sender: TObject);begin if TreeView1.Selcount <> 0 then TreeView1.Selected.Text := Edit1.Text;end;可以结帖了, 数据库读取二进制文件出现乱码或不能识别 "(.1.Self."是什么意思? 怎样检测oracle中是否存在某个表? 如何獲取mac地址? 如何把oracle数据库表里的数据导成insert语句,谁有这方面的经验? 简单问题,请帮手,在线等…… 怎么样可以在Delphi下实现对Access数据库加密?急!!! Com常识问题 如何动态改变存储过程中where后的子句? 有两台远程计算机通过一对MODEM连接进行数据发送(.TXT文件)发收两端的程序该如何设计? 方案请教 编译不了,怎么办啊?刚开始学,多多关照
if assigned(treeview1.selected) then
treeview1.selected.text := 'adsdffdsdf';
if assigned(treeview1.selected)是什么意思吗?
begin
if TreeView1.Selected <> nil then
TreeView1.Selected.Text := Edit1.Text;
end;
begin
if TreeView1.Selcount <> 0 then
TreeView1.Selected.Text := Edit1.Text;
end;可以结帖了,