DBTreeViewEx控件的開發問題(100分)

  • 主题发起人 主题发起人 smokingroom
  • 开始时间 开始时间
S

smokingroom

Unregistered / Unconfirmed
GUEST, unregistred user!
我正嘗試在寫一個DBTreeViewEx控件,基本完成,很快可以與大家共享.現在有個問題,我想重載TTreeView中的
OnChanging,OnCollapsed,OnExpanded等事件,但卻報錯說找不到父類中的方法.實在沒辦法了,
只好向高手求救.
TDBTreeViewEx = class(TTreeView)
private
{ Private declarations }
...
protected
Procedure Changing(Sender:TObject;Node:TTreeNode;Var AllowChange:Boolean);override;
procedure Collapsed(Sender: TObject; Node: TTreeNode);override;
procedure Expanded(Sender: TObject; Node: TTreeNode);override;
{ Protected declarations }
public
Constructor Create(Owner:TComponent);Override;
...
{ Public declarations }
published
...
{ Published declarations }

end;

procedure TDBTreeViewEX.Collapsed(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex:=0;
inherited;
end;
procedure TDBTreeViewEx.Expanded(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex:=2;
inherited;
end;
 
名字写错了! 应该是下面三个才对:
procedure Change(Node: TTreeNode); override;
procedure Collapse(Node: TTreeNode); override;
procedure Expand(Node: TTreeNode); override;
 
謝謝xianjun,你的答案很正確.
能否請你告訴我,為什麼我在delphi幫助文檔中查不到?
 
帮助文档也不是什么都有的
有时候你要看看源代码。特别是要写组件的时候
 
接受答案了.
 
后退
顶部