線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1689
推到 Plurk!
推到 Facebook!

treeview的checkbox选项

答題得分者是:malanlk
baby2321
初階會員


發表:52
回覆:165
積分:48
註冊:2005-06-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-04 08:50:52 IP:219.140.xxx.xxx 未訂閱
如treeview显示了一个数据库表的结构及内容 将这些内容显示在DBGrid中 如何实现把节点旁的可选择方框选中后 DBGrid中连接后不显示该项或显示该项?    恳请各位大大赐教    多谢    在treeview前加可选择方框已通过http://delphi.ktop.com.tw/topic.php?topic_id=47999 中    
 
procedure TForm1.FormCreate(Sender: TObject);
var
  dwStyle : DWord;
begin
  dwStyle := GetWindowLong(ShellTreeView1.Handle,GWL_STYLE); //取得原來ShelltreeView Node的Style
  dwStyle := dwStyle or OBM_CHECKBOXES;  //加上checkbox Style
  SetWindowLong(ShellTreeView1.Handle,GWL_STYLE,dwStyle);  //更新Style可以了!
end;
这段代码实现了在treeview前加可选择方框(只需把ShellTreeView改为TreeView即可) 發表人 - baby2321 於 2005/09/04 08:59:45 發表人 - baby2321 於 2005/09/04 09:09:24 發表人 - baby2321 於 2005/09/04 09:18:10 發表人 - baby2321 於 2005/09/04 09:23:32
malanlk
尊榮會員


發表:20
回覆:694
積分:577
註冊:2004-04-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-04 12:51:23 IP:61.219.xxx.xxx 未訂閱
http://delphi.ktop.com.tw/topic.php?topic_id=42892 這篇更精采 用 IsNodeChecked 逐項檢查... 有 checked 再列出來.. 發表人 - malanlk 於 2005/09/04 12:57:57
baby2321
初階會員


發表:52
回覆:165
積分:48
註冊:2005-06-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-04 17:24:47 IP:219.140.xxx.xxx 未訂閱
多谢malanlk 我再结合自己的案例消化一下
系統時間:2024-05-19 14:42:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!