怎么让TreeView前面显示CheckBox

2016-02-19 21:30 26 1 收藏

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的怎么让TreeView前面显示CheckBox,过去的都会过去,迎接崭新的开始,释放更美好的自己。

【 tulaoshi.com - 编程语言 】

  我的主页: http://www.tommstudio.com/

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  下面的代码可以让Treeview前面显示CheckBox.


  const
  TVS_CHECKBOXES = $00000100;
  
  procedure SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean);
  var
  Style: Integer;
  begin
    if WinCtrl.HandleAllocated then
    begin
      Style := GetWindowLong(WinCtrl.Handle, GWL_STYLE);
      if not UseStyle then
      Style := Style and not Value
      else Style := Style or Value;
      SetWindowLong(WinCtrl.Handle, GWL_STYLE, Style);
    end;
  end;
  


  然后 在 OnCreate 调用:
  


  SetComCtrlStyle(TreeView1, TVS_CHECKBOXES, True);

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  
  或者干脆简单点,一句话完事:
  


  SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or $00000100);


  

来源:http://www.tulaoshi.com/n/20160219/1626365.html

延伸阅读
标签: 生活常识
哪些东西不能放在电脑前面   长期用电脑会很容易伤害健康,如果在电脑前放一些不适宜的东西就更糟了,一起来看看吧。 一、电脑不宜摆放零食、饮料 你平时的习惯,保留了很多的化石,饭粒、饼干渣、头发等等比比皆是,难怪有人说:公用机房里的键盘比公厕还脏。同时这样的碎片还可能进入你的键盘里面,堵塞你键盘上的...
标签: 电脑入门
在PowerPoint2007中,提供了对16:9宽屏的支持,这个功能可以充分利用宽屏显示器的纵横比例性,更逼真地显示并排的素材,更生动地呈现图形和图像,从而真正发挥宽屏显示器的优点。具体设置如下: (1)启动PowerPoint2007,在主体窗口中切换到“设计”标签, (2)用鼠标单击“页面设置”打开对话框,在“幻灯片大小”下拉列表框中选择“全屏...
代码如下: public class MainActivity extends Activity {  TextView tv;  CheckBox cb1;  CheckBox cb2;  @Override  protected void onCreate(Bundle savedInstanceState) {   super.onCreate(savedInstanceState);   setContentView(R.layout.activity_main);   cb1 = (CheckBo...
标签: 耳朵
耳朵不通气有什么小方法? 耳朵不通气可能是耳屎太多堵住了,比如堵塞了咽鼓管,咽鼓管可以连接内耳和鼻腔,是耳道内非常重要的一个器官组织,一旦堵住了它,就会使耳朵不通畅,导致从进入到耳朵内的各种气体排不出来。一系列关于耳朵的炎症会引发感冒,使产生鼻涕,导致咽鼓管堵住了,当然也不能排除是不是患有中耳炎,这不是一种很严重的...
摘要:讲述了如何向 TreeView 控件添加数据绑定功能,它是一系列 Microsoft Windows 控件开发示例之一。您可以将本文与相关的概述文章结合起来阅读。 简介 在可能的情况下,您应该先使用些现成的控件;因为提供的 Microsoft® Windows® 窗体控件中包含大量编码和测试成果,如果您要放弃它们从头开始,无疑是一种巨大的浪费...

经验教程

361

收藏

16
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部