各们大富翁，帮帮忙。。。(50分)

我在扩展了TTreeview的代码中定义了一个Active的属性，并且在Active 的read的代码中
调用到ADOConnection控件读取数据库，当将Active初始值设为True时，运行时就会出错，
而初始设为False，在运行表单后执行Active:=true又能正常运行，这是什么原因啊??

没明白

你得看看哪里的代码与Active 有关，检查一下。

笨一点，将源代码贴出来，大家帮我诊断诊断。。。


unit Pub;
interface

uses SysUtils, Types, Classes, ComCtrls, Graphics, Controls, ADODB;

type
TkqTreeView = class(TTreeView)
private
FOrganization: string;
FConn: TADOConnection;
FActive: Boolean;
FDeptTable: WideString;
FEmployeeTable: WideString;
FinCludeEmp:Boolean;
procedure AddTreeView(ParentNode: TTreeNode; DeptRs: _Recordset; Level: Integer);
procedure SetOrganization(Value: string);
procedure SetConn(Value: TADOConnection);
procedure SetActive(Value: Boolean);
procedure SetDeptTable(Value: WideString);
procedure SetEmployeeTable(Value: WideString);
procedure SetIncludeEmp(Value :Boolean);
protected
public
constructor Create(Aowner: TComponent); override;
destructor Destroy; override;
function AddTreeNode(ParentNode: TTreeNode; Text: string; xType: Integer): TTreeNode;
procedure RefreshTreeView;
published
property Organization: string read FOrganization write SetOrganization;
property Connection: TADOConnection read FConn write SetConn;
property Active: Boolean read FActive write SetActive;
property DeptTable: WideString read FDeptTable write SetDeptTable;
property EmployeeTable: WideString read FEmployeeTable write SetEmployeeTable;
property IncludeEmployee :Boolean read FincludeEmp write setIncludeEmp;


end;

procedure Register;

implementation

constructor TkqTreeView.Create(Aowner: TComponent);
begin
inherited Create(AOwner);
FActive := False;
FOrganization := '#########';
FDeptTable := 'Dept';
FEmployeeTable := 'PersonnelTable';
FincludeEmp := False;
end;

destructor TkqTreeView.Destroy;
begin
inherited Destroy;
end;

procedure Register;
begin
RegisterComponents('Click', [TkqTreeView]);
end;

procedure TkqTreeView.SetOrganization(Value: string);
begin
FOrganization := Value;
if Items.Count > 0 then
Items[0].Text := Value;
end;

procedure TkqTreeView.SetConn(Value: TADOConnection);
begin
FConn := Value;
if FActive then SetActive(False);
end;

procedure TkqTreeView.SetActive(Value: Boolean);
begin
FActive := Value;
if Value then RefreshTreeView
else Items.Clear;
end;

procedure TkqTreeView.SetDeptTable(Value: WideString);
begin
FDeptTable := Value;
if FActive then SetActive(False);
end;

procedure TkqTreeView.SetEmployeeTable(Value: WideString);
begin
FEmployeeTable := Value;
if FActive then SetActive(False);
end;

//向目录树添加一个树结点，类型根据xType决定
function TkqTreeView.AddTreeNode(ParentNode: TTreeNode; Text: string; xType: Integer): TTreeNode;
begin
Result := Items.AddChild(ParentNode, Text);
Result.ImageIndex := xType;
Result.SelectedIndex := xType;
Result.StateIndex := xType;
Result.Data := Pointer(xType);
end;

procedure TkqTreeView.AddTreeView(ParentNode: TTreeNode; DeptRs: _Recordset; Level: Integer);
var
Rs: _Recordset;
i, j: Integer;
Node: TTreeNode;
bh,Name: string;
SQL: string;
begin
for i := 0 to DeptRs.RecordCount - 1 do
begin
bh := DeptRs.Fields['ID'].Value;
Name :=DeptRs.Fields['BmName'].Value;
//增加一个新结点
Node := AddTreeNode(ParentNode, bh + ' ' + Name, 1);

SQL := 'SELECT * FROM ' + FDeptTable + ' WHERE bmLevel=' + IntToStr(Level+1) + ' AND ParentID="' + bh + '"';
// AddTreeView(Node, MainForm.ADOConn.Execute('exec _GetDeptBySub WITH "' + bh + '"'), Level+1);
AddTreeView(Node, FConn.Execute(SQL), Level+1);
If FincludeEmp then //是否包含人员信息
Begin
Rs := FConn.Execute('select * from ' + FEmployeeTable + ' where ssbm="' + bh + '"');
for j := 0 to Rs.RecordCount - 1 do
begin
//增加一个新结点
AddTreeNode(Node, Rs.Fields['bh'].Value + ' ' + Rs.Fields['xm'].Value, 2);
Rs.MoveNext;
end;
end;
DeptRs.MoveNext;

end;
end;

procedure TkqTreeView.RefreshTreeView;
begin
Items.Clear;
with Items.Add(nil, FOrganization) do
begin
Data := Pointer(0);
ImageIndex := 0;
SelectedIndex := 0;
StateIndex := 0;
end;

AddTreeView(Items.GetFirstNode, FConn.Execute('SELECT * FROM ' + FDeptTable + ' WHERE bmLevel=0'), 0);

FullExpand;
end;

procedure TkqTreeView.SetIncludeEmp(Value: Boolean);
begin
FincludeEmp := Value;
end;

end.

怎没人帮我看看啊？？[V]

具体是什么错误啊
有可能是某些对象没有初始化

要靠自己才行啊！

To daoba_wolf:
大哥，我就搞了半天都没搞出来，才贴出来的啊，我现在只能在表单的Create代码将
其的Active 设为True ，来激活它。可我就是搞不懂如何解决这个问题？？

设计时为 True 时，没有执行相应的代码，所以你的程序会出错。
程序运行时设置为 true ，执行了 set...中的代码，所以不会错。

这样来看，你的最终处理是合理的。

太长了没时间，帮你up一下

也不告诉出错信息，怎么帮你，我们的时间也是有限的

问题解决了，分分了。。。