TreeView 增加 CheckBox/RadioButton操作選項

Ex1:

Uses CommCtrl;


procedure TForm1.FormCreate(Sender: TObject);
var dw:DWORD;
begin
  dw := GetWindowLong(tvWorkStep.Handle, GWL_STYLE);
  dw := dw or TVS_CHECKBOXES;
  SetWindowLong(tvWorkStep.Handle, GWL_STYLE , dw);
end;


增加2個Function
    function SetTreeViewNodeChecked(ATreeView: TTreeView; ATreeNode: TTreeNode;
Checked: Boolean): Boolean;

    function GetTreeViewNodeChecked(ATreeView: TTreeView; ATreeNode: TTreeNode): Boolean;


function TForm1.SetTreeViewNodeChecked(ATreeView: TTreeView; ATreeNode: TTreeNode; Checked: Boolean): Boolean;
var
  tvItem: TTVItem;
begin
  tvItem.mask := TVIF_HANDLE or TVIF_STATE;
  tvItem.hItem := ATreeNode.ItemId;
  tvItem.stateMask := TVIS_STATEIMAGEMASK;

  (*Image 1 in the tree-view check box image list is the
  unchecked box. Image 2 is the checked box.*)
  if Checked then
    tvItem.state := IndexToStateImageMask(2)
  else
    tvItem.state := IndexToStateImageMask(1);

  Result := TreeView_SetItem(ATreeView.Handle, tvItem);
end;

function TForm1.GetTreeViewNodeChecked(ATreeView: TTreeView; ATreeNode: TTreeNode): Boolean;
var
  tvItem: TTVItem;
begin
  // Prepare to receive the desired information.
  tvItem.mask := TVIF_HANDLE or TVIF_STATE;
  tvItem.hItem := ATreeNode.ItemId;
  tvItem.stateMask := TVIS_STATEIMAGEMASK;

  // Request the information.
  TreeView_GetItem(ATreeView.Handle, tvItem);

  // Return zero if it's not checked, or nonzero otherwise.
  Result := Boolean((tvItem.state shr 12) - 1);
end;

轉貼至 http://www.cnblogs.com/spiritofcloud/p/3976170.html

==================================================================

==================================================================

Ex2:

搭配 TImageList，TreeView.StateImages指向TImageList， 設定 Item.StateIndex 用圖示反應狀態

TImageList

Const

 cFlatUnCheck=1;  

 cFlatChecked=2;

 cFlatRadioUnCheck=3;

 cFlatRadioChecked=4;

//ToggleTreeViewCheckBoxes同時處理CheckBox/RadioButton的圖示

//操作時只需調整 Item.StateIndex 就可以決定呈現方式

Procedure ToggleTreeViewCheckBoxes(

  Node :TTreeNode; cUnChecked, cChecked, cRadioUnchecked, cRadioChecked :integer);

var

 tmp:TTreeNode;

begin

  if Assigned(Node) then

  begin

    if Node.StateIndex = cUnChecked then

      Node.StateIndex := cChecked

    else if Node.StateIndex = cChecked then

      Node.StateIndex := cUnChecked

    else if Node.StateIndex = cRadioUnChecked then

    begin

      tmp := Node.Parent;

      if not Assigned(tmp) then

        tmp := TTreeView(Node.TreeView).Items.getFirstNode

      else

        tmp := tmp.getFirstChild;

      while Assigned(tmp) do

      begin

        if (tmp.StateIndex in [cRadioUnChecked,cRadioChecked]) then

          tmp.StateIndex := cRadioUnChecked;

        tmp := tmp.getNextSibling;

      end;

      Node.StateIndex := cRadioChecked;

    end;

  end;

end;

//TreeView.OnClick

procedure TForm1.TreeView1Click(Sender: TObject);

var

 P:TPoint;

begin

 GetCursorPos(P);

 P := TTreeView(Sender).ScreenToClient(P);

 if (htOnStateIcon in TTreeView(Sender).GetHitTestInfoAt(P.X,P.Y)) then

  ToggleTreeViewCheckBoxes(

    TTreeView(Sender).Selected,

    cFlatUnCheck,

    cFlatChecked,

    cFlatRadioUnCheck,

    cFlatRadioChecked);

end;

//TreeView.KeyDown

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_SPACE) and Assigned(TTreeView(Sender).Selected) then

    ToggleTreeViewCheckBoxes(

      TTreeView(Sender).Selected,

      cFlatUnCheck,

      cFlatChecked,

      cFlatRadioUnCheck,

      cFlatRadioChecked);

end;

轉貼/參考

https://www.thoughtco.com/add-options-to-ttreeview-4077866  

http://www.aspphp.online/bianchen/gengduo/delphi/201701/10175.html