我是要在treeview中加一个方法open。
在安装完控件后,delphi提示已经更新组件。然后点击控件面板,就死机了
而且,下次进入delhi 时,在出现控件面板时死机。
我用delphi 3.0,以下是部分程序。
unit a;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
Ta = class(TTreeView)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Open(AbsIndex:Integer);
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('VCL', [Ta]);
end;
constructor Ta.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor Ta.Destroy;
begin
inherited;
end;
procedure Ta.Open(AbsIndex:Integer);
... ...