TREEVIEW加CHECKBOX时

procedure TForm1.FormCreate(Sender: TObject);

var

dwStyle : DWord;

begin

dwStyle := GetWindowLong(TreeView1.Handle,GWL_STYLE); //取得原來treeView Node的Style

dwStyle := dwStyle or OBM_CHECKBOXES; //加上checkbox Style

SetWindowLong(TreeView1.Handle,GWL_STYLE,dwStyle); //更新Style可以了!

end;

以上可以实现在TREEVIEW各节点前加CHECKBOX

我看了

http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=47999 的内容 里面提到

type TTreeNodeCheckState = ( csNone, csUnChecked, csChecked );

procedure TForm1.Button1Click(Sender: TObject);

const AStateText: array [TTreeNodeCheckState] of String = ( 'None', 'UnChecked', 'Checked' ); //这里提示:Undeclared indentifier 'TTreeNodeCheckState' 不知何故??

var

ANode: TTreeNode;

ATVItem: TTVItem; //这里也提示:Undeclared indentifier 'TTVItem'是不是我有什么没有加到窗体上???

AState: TTreeNodeCheckState;

begin ANode := TreeView1.Selected; if not Assigned( ANode ) then Exit; with ATVItem do begin mask := TVIF_HANDLE or TVIF_STATE; hItem := ANode.ItemId; stateMask := TVIS_STATEIMAGEMASK; end; TreeView_GetItem( TreeView1.Handle, ATVItem ); AState := TTreeNodeCheckState( ATVItem.State shr 12 ); Label1.Caption := Format( 'The Node Is "%s"', [ANode.Text] ); Label2.Caption := Format( 'Check State Is "%s"', [AStateText[AState]] ); end;

請 uses Commctrl

===================引 用 文 章===================

TREEVIEW加CHECKBOX時

procedure TForm1.FormCreate(Sender: TObject);

var

dwStyle : DWord;

begin

dwStyle := GetWindowLong(TreeView1.Handle,GWL_STYLE); //取得原來treeView Node的Style

dwStyle := dwStyle or OBM_CHECKBOXES; //加上checkbox Style

SetWindowLong(TreeView1.Handle,GWL_STYLE,dwStyle); //更新Style可以了!

end;

以上可以實現在TREEVIEW各節點前加CHECKBOX

我看了

http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=47999 的內容 裡面提到

type TTreeNodeCheckState = ( csNone, csUnChecked, csChecked );

procedure TForm1.Button1Click(Sender: TObject);

const AStateText: array [TTreeNodeCheckState] of String = ( 'None', 'UnChecked', 'Checked' ); //這裡提示:Undeclared indentifier 'TTreeNodeCheckState' 不知何故??

var

ANode: TTreeNode;

ATVItem: TTVItem; //這裡也提示:Undeclared indentifier 'TTVItem'是不是我有什麼沒有加到窗體上???

AState: TTreeNodeCheckState;

begin ANode := TreeView1.Selected; if not Assigned( ANode ) then Exit; with ATVItem do begin mask := TVIF_HANDLE or TVIF_STATE; hItem := ANode.ItemId; stateMask := TVIS_STATEIMAGEMASK; end; TreeView_GetItem( TreeView1.Handle, ATVItem ); AState := TTreeNodeCheckState( ATVItem.State shr 12 ); Label1.Caption := Format( 'The Node Is "%s"', [ANode.Text] ); Label2.Caption := Format( 'Check State Is "%s"', [AStateText[AState]] ); end;