Ttreeview的问题,很急!!! 将 treeview 的 hideselection 属性设置为 false 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to 上就这么简单:)见笑了我用的方法说出来的笑死你我在treeexit加入代码控制一个st1: TStaticText;让他挡住tree上面的节点然后在treeEnter把他隐藏procedure Tfmain.treeExit(Sender: TObject);var mr:trect;begintmpnode:=tree.Selected;mr:=tmpnode.DisplayRect(true);st1.Font:=tree.Font;st1.Caption:=tmpnode.text;st1.Left:=mr.Left+3;st1.Top:=mr.Top+5;st1.Visible:=true; end;procedure Tfmain.treeEnter(Sender: TObject);beginst1.Visible:=false;end; 有哪位知道这两个控件是什么控件不. ehlib4.2.16 picklist添加空值问题 文件打开 监测 hook实现? 关于一个表查询的问题,请各位大侠看看,多谢了! 请教初学Delphi的入门问题 怎么实现Com+中服务器自动通知客户端(急) 紧急!我原本有一个主窗体但设置一个登陆验证窗体后,登陆主窗体不能激活子窗体,为什么? 关于OWC控件的编译错误问题 vb有me,c++build有this,delphi有什么? 怎么用MaskEdit实现限制用户只能输入某几个字母? 我如何把图片加到access2000中 我想问大家一个问题,delphi适合开发视频点播的服务器端的开发工具吗?
我用的方法说出来的笑死你
我在treeexit加入代码控制一个st1: TStaticText;让他挡住tree上面的节点
然后在treeEnter把他隐藏
procedure Tfmain.treeExit(Sender: TObject);
var mr:trect;
begin
tmpnode:=tree.Selected;
mr:=tmpnode.DisplayRect(true);
st1.Font:=tree.Font;
st1.Caption:=tmpnode.text;
st1.Left:=mr.Left+3;
st1.Top:=mr.Top+5;
st1.Visible:=true;
end;procedure Tfmain.treeEnter(Sender: TObject);
beginst1.Visible:=false;
end;