請問有沒有人看過這種元件 如下圖所示.. 目前我知道RC3有ShellListView + CheckBox 但沒有ShellTreeView + CheckBox 還是，如果沒有的話，要如何使用bcb6原有的shelltreeview改成有checkbox 的呢 麻煩請指導一下，謝謝

我可以使用 RC3 的 TRzZCheckTree Jesse Chan

------
Jesse Chan

我知道RC3 有CHECK TREE 但是要在CHECK TREE 上加上SHELL 並不容易 所以我才想要問，有沒有已經做好的

TED: 我想到怎麼解決了!...想了一晚上中於試出來了 你試試看是不是你想要的! 我使用 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9322718&CC=208502"> Source Code如下:

unit1.h    //---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include < Classes.hpp >
#include < Controls.hpp >
#include < StdCtrls.hpp >
#include < Forms.hpp >
#include " shellctrls.h"
#include < ComCtrls.hpp >
#include " ShellCtrls.h "
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TShellComboBox *ShellComboBox1;
        TShellTreeView *ShellTreeView1;
        TShellListView *ShellListView1;
private:        // User declarations
public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

unit1.cpp

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ShellCtrls"
#pragma link "ShellCtrls"
#pragma resource "*.dfm"
TForm1 *Form1;

#ifndef TVS_CHECKBOXES
#define TVS_CHECKBOXES 0x0100
#endif
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   DWORD dwStyle=::GetWindowLong(ShellTreeView1->Handle,GWL_STYLE); //取得原來ShelltreeView Node的Style
   dwStyle=dwStyle|TVS_CHECKBOXES;  //加上checkbox Style
   ::SetWindowLong(ShellTreeView1->Handle,GWL_STYLE,dwStyle);  //更新Style可以了! 
}
//---------------------------------------------------------------------------
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9258866&CC=207074">
Delphi.Ktop風紀小隊---[ 發問前請先找找舊文章 ]---
        

真是太厲害了, 佩服佩服.    Jesse Chan

------
Jesse Chan

oh~~~my god... 真是夭獸~~~ 竟然可以這樣子寫，天阿~~~ 老大真是太神奇了 ...果真有效 順便問一下，為什麼ShellListView 不能依樣畫葫蘆 還有就是 #define TVS_CHECKBOXES 0x0100 這個數值是怎麼找出來的阿 發表人 - turboted 於 2003/05/01 13:17:54

引言: oh~~~my god... 真是夭獸~~~ 竟然可以這樣子寫，天阿~~~ 老大真是太神奇了 ...果真有效 順便問一下，為什麼ShellListView 不能依樣畫葫蘆 還有就是 #define TVS_CHECKBOXES 0x0100 這個數值是怎麼找出來的阿 發表人 - turboted 於 2003/05/01 13:17:54

1.ShellListview可不可以加上Checkbox呢?理論上應該是可以的,但應該是要在vsReport Mode狀態下才能使用吧!我沒試過!只要找對屬性,要加入checkbox的屬性應該不難才對! 2.#define TVS_CHECKBOXES 0x0100 這個數值是怎麼找出來的? 去瞭解一下Tcheckbox的原始Delphi Code您就會瞭解了! < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9258866&CC=207074"> Delphi.Ktop風紀小隊---[ 發問前請先找找舊文章 ]---

續問一下 加上CheckBox後 我要如何判斷我現在點選的是CheckBox還是Folder 以，在CheckBoxListView為例，你點選後，可以去判斷 items->check 是否有改變，就知道是不是有點選checkbox 不過，在ShellTree CheckBox中，沒有check的屬性 然而，我也看不出來點選CheckBox和Folder，有什麼不同 除了，位置不同之外，但我不能用位置來判斷，因為不同的解析度 會讓點選的位置不同 還請多指教

想請問一下 像這種方式的變更 要怎麼去抓那一個檔案已經被選擇(fileView) 或是那一些資料夾已經被勾選(TreeView)? 剛剛試了好久,卻還是不能成功的對已經勾選的資料夾做處理 也不能對檔案做處理 因為我打算寫一個可以以資料夾方式來更改檔名的程式 以及以資料夾來取代內文的程式 卻連第一步都踏不出去orz