Tree的CheckBox

LONG GetWindowLong（HWND hWnd，int nlndex）；
该函数获得有关指定窗口的信息，函数也获得在额外窗口内存中指定偏移位地址的32位度整型值。

   参数：

   hWnd:窗口句柄及间接给出的窗口所属的窗口类。

   nlndex：指定要获得值的大于等于0的值的偏移量。有效值的范围从0到额外窗口内存空间的字节数一4例如，若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要获得任意其他值，指定下列值之一：

   GWL_EXSTYLE；获得扩展窗日风格。

   GWL_STYLE：获得窗口风格。

   GWL_WNDPROC：获得窗口过程的地址，或代表窗口过程的地址的句柄。必须使用GWL_WNDPROC函数调用窗口过程。

   GWL_HINSTANCE：获得应用事例的句柄。

   GWL_HWNDPAAENT：如果父窗口存在，获得父窗口句柄。

   GWL_ID:获得窗口标识。

   GWL_USERDATA：获得与窗口有关的32位值。每一个窗口均有一个由创建该窗口的应用程序使用的32位值。

   在hWnd参数标识了一个对话框时也可用下列值：

   DWL_DLGPROC：获得对话框过程的地址，或一个代表对话框过程的地址的句柄。必须使用函数CallWindowProc来调用对话框过程。

   DWL_MSGRESULT：获得在对话框过程中一个消息处理的返回值。

   DWL_USER：获得应用程序私有的额外信息，例如一个句柄或指针。

   返回值：如果函数成功，返回值是所需的32位值；如果函数失败，返回值是0。若想获得更多错误信息请调用 GetLastError函数。

 
来自: hotboys, 时间: 2005-03-18 8:44:44, ID: 3017606 
LONG SetWindowLong（HWND hWnd，int nlndex，LONG dwNewLong）；
该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。

   参数：

   hWnd：窗口句柄及间接给出的窗口所属的类。

   nlndex：指定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一：

   GWL_EXISTYLE：设定一个新的扩展风格。GWL_STYLE：设定一个新的窗口风格。

   GWL_WNDPROC：为窗口过程设定一个新的地址。GWL_ID：设置一个新的窗口标识符。

   GWL_HINSTANCE：设置一个新的应用程序事例句柄。

   GWL_USERDATA：设置与窗口有关的32位值。每一个窗口均有一个由创建该窗口的应用程序使用的32位值。

   当hWnd参数标识了一个对话框时，也可使用下列值：

   DWL_DLGPROC：设置对话框过程的新地址。

   DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值。

   DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针。

   dwNewLong：指定的替换值。

   返回值：如果函数成功，返回值是指定的32位整数的原来的值。如果函数失败，返回值为0。若想获得更多错误信息，请调用GetLastError函数。

   如果指定32位整数的原来的值为0，并且函数成功，则返回值为0，但是函数并不清除最后的错误信息，这就很难判断函数是否成功。这时，就应在调用SetWindowLong之前调用callingSetLastError（0）函数来清除最后的错误信息。这样，如果函数失败就会返回0，并且GetLastError。也返回一个非零值。

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ComCtrls,commctrl;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Memo1: TMemo;
    Button1: TButton;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const TVS_CHECKBOXES  = $0100;
var
  s: dword;
begin
  s := GetWindowLong( treeview1.Handle, GWL_STYLE);
  s := s or TVS_CHECKBOXES;
  SetWindowLong(treeview1.Handle, GWL_STYLE , s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  item:TTVItem;
  s:string;
begin
{
item.state:= (item.state or $1000) and (not $2000); 未打勾
item.state:= (item.state or $2000) and (not $1000); 打勾
}
  
  memo1.Text := '';
  for i := 0 to treeview1.Items.Count - 1 do
  begin
     item.mask:=TVIF_HANDLE;
     item.hItem:=treeview1.Items[i].ItemId;
     TreeView_GetItem(treeview1.Handle,item);
     if (item.state and $2000)=0 then
         //未打勾
     else
         memo1.Lines.Add('父为'+s+'-'+treeview1.Items.Item[i].Parent.Text+'-'+
                                inttostr(treeview1.Items.Item[i].Level)
                                     +'层'+'-'+treeview1.Items[i].Text);

  end;
end;

end.