請教前輩: 我想建立一個繼承TCustomPanel的元件, 在元件中動態產生一TTreeView,並定義 TTreeView的OnClick事件,但在RunTime 發現TTreeView的OnClick事件根本 不會被執行!請問前輩是那裡錯了? unit AddrPanel1; interface uses   SysUtils, Classes, Controls, ExtCtrls,ComCtrls,DB,ADODB,Dialogs,StdCtrls; type   TAddrPanel1 = class(TCustomPanel)   private     FTreeview:TTreeView;     Connect1:TADOConnection;     qry1,qry2,qry3:TADOQuery;     ad,ad2:array of string;     adno,ad2no:integer;     procedure FTreeViewClick(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } end; : : constructor TAddrPanel1.Create(AOwner: TComponent); begin inherited Create(AOwner); Left:=0; Top:=0; Width:=500; Height:=500; Align:=alClient; parent:=TWinControl(AOwner); FTreeview:=TTreeView.Create(AOwner); FTreeview.Parent:=Self; FTreeview.Height:=433; FTreeview.Width:=257; FTreeview.Left:=8; FTreeview.Top:=8; FTreeview.OnClick:=FTreeViewClick; Connect1:=TADOConnection.Create(Self); Connect1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Addr.Mdb;Persist Security Info=False'; Connect1.LoginPrompt:=False; qry1:=TADOQuery.Create(Self); qry2:=TADOQuery.Create(Self); qry3:=TADOQuery.Create(Self); qry1.Connection:=Connect1; qry2.Connection:=Connect1; qry3.Connection:=Connect1; : : : procedure TAddrPanel1.FTreeViewClick(Sender: TObject); begin if FTreeView.Selected.Level=0 then begin if FTreeView.Selected.Text<>qry1.Fieldbyname('縣市名稱').AsString then qry1.Locate('縣市名稱',FTreeView.Selected.Text,[]); showtop(nil); Edit1.Text:=FTreeView.Selected.Text; end else if FTreeView.Selected.Level=1 then : :

constructor TAddrPanel1.Create(AOwner: TComponent); begin inherited Create(AOwner); Left:=0; Top:=0; Width:=500; Height:=500; Align:=alClient; parent:=TWinControl(AOwner); FTreeview:=TTreeView.Create(AOwner); 改為-->FTreeview:=TTreeView.Create(Self);就可以了! FTreeview.Parent:=Self; FTreeview.Height:=433; FTreeview.Width:=257;