回 帖 发 新 帖 刷新版面

主题:有关treeview?

如何才能当treeview单击时显示出单击的结点,但单击+ 号时不会弹出结点的值只是做伸缩??

谢谢大哥们! 有高分加! 
如:
procedure TForm1.TV1Click(Sender: TObject);
begin
showmessage('') ;    {如何只有当只按项目的时候才显示!}

end;
分号中要添加什么,前面是不是要用条件语句??

谢谢!! 

帮帮小弟!!

回复列表 (共3个回复)

沙发

在treeview的onmousedown中:
var
    hitpoint: Thittests;
begin
    hitpoint := treeview1.gethittestinfoat(x,y);
    if htonlabel in hitpoint then
        showmessage('点击在NODE文件上');
    if htonindent in hitpoint then
        showmessage('点击在了缩进线');
end

板凳

打少了,+号应该是
if htonbutton in hitpoint then 
showmessage('点在+号上了');

3 楼

谢谢非常!不过我想问:
你学的那么精,哪里有好的资料呀??
推荐一下! 谢谢!


给你加上五十分(满分)谢谢!

我来回复

您尚未登录,请登录后再回复。点此登录或注册