Delphi 有這種樹狀圖嗎 |
|
尚未結案
|
|
carter6
初階會員   發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
william 謝謝您的回應:
但是這行
TvItem :TTVItem; 一直錯誤
我是整篇 Copy 進去嗎?? type
TCheckBoxTreeView = class(TTreeView)
protected
procedure CreateParams(var Params: TCreateParams); override;
end; procedure TCheckBoxTreeView.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or TVS_CHECKBOXES;
{ TVS_CHECKBOXES declared in CommCtrl }
end; {Check if checkbox is checked} function IsNodeChecked(Node :TTreeNode) :Boolean;
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
TvItem.Mask := TVIF_STATE;
TvItem.hItem := Node.ItemId;
TreeView_GetItem(Node.TreeView.Handle, TvItem);
Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED;
end; procedure SetNodeChecked(Node :TTreeNode; Checked :Boolean);
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
FillChar(TvItem, SizeOf(TvItem), 0);
with TvItem do begin
hItem := Node.ItemId;
Mask := TVIF_STATE;
StateMask := TVIS_STATEIMAGEMASK;
if Checked then
TvItem.State :=TVIS_CHECKED
else
TvItem.State :=TVIS_CHECKED shr 1;
TreeView_SetItem(Node.TreeView.Handle, TvItem);
end;
end; 謝謝!!
Carter
|
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CommCtrl, ComCtrls; type TCheckBoxTreeView = class(TTreeView)
protected
procedure CreateParams(var Params: TCreateParams); override;
end; TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FCBTreeView: TCheckBoxTreeView;
public
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TCheckBoxTreeView.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or TVS_CHECKBOXES;
end; procedure TForm1.FormCreate(Sender: TObject);
var
ANode: TTreeNode;
begin
FCBTreeView := TCheckBoxTreeView.Create(self);
with FCBTreeView do begin
Parent := self;
Align := alClient;
ANode := Items.AddChild(nil,'1');
Items.AddChild(ANode,'1.1');
Items.AddChild(ANode,'1.2');
ANode.Expand(False);
ANode := Items.AddChild(nil,'2');
Items.AddChild(ANode,'2.1');
Items.AddChild(ANode,'2.2');
ANode.Expand(False);
end;
end; procedure TForm1.FormDestroy(Sender: TObject);
begin
FCBTreeView.Free;
end; end.
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
JBLpower
一般會員  發表：17 回覆：6 積分：4 註冊：2003-04-09 發送簡訊給我 |
|
|
chuxinying
一般會員 發表：5 回覆：1 積分：1 註冊：2004-07-09 發送簡訊給我 |
|
|
Egn
一般會員 發表：29 回覆：54 積分：16 註冊：2005-04-14 發送簡訊給我 |
發表時間：2003-12-30 11:24:37
IP:218.170.xxx.xxx 未訂閱
系統時間：2024-06-29 17:09:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |