给TreeView添加复选框

最新推荐文章于 2026-05-19 06:22:33 发布

原创最新推荐文章于 2026-05-19 06:22:33 发布 · 2.2k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#integer #button #forms #windows #class

收录于

Delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍如何在Delphi窗体中的TreeView控件启用复选框功能，通过自定义设置窗体风格来实现。具体步骤包括定义单元、接口及类型，并通过过程SetComCtlStyle设置TreeView的样式。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean); public { Public declarations } end; const TVS_CHECKBOXES=$0100; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean); var Style: Integer; begin if Ctl.HandleAllocated then begin Style := GetWindowLong(Ctl.Handle, GWL_STYLE); if not UseStyle then Style := Style and not Value else Style := Style or Value; SetWindowLong(Ctl.Handle, GWL_STYLE, Style); end; end; procedure TForm1.Button1Click(Sender: TObject); begin SetComCtlStyle(TreeView1,TVS_CHECKBOXES,True); end; end.