求助,谢谢!
有这样一个类似程序:
type
TForm1 = class(TForm)
Button1 : TButton;
TreeView1: TTreeView;
member :TMember;
procedure Button1Click(Sender: TObject);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
member.CreatView(TreeView1);
end;
type
TMember = class
public
procedure CreatView(TVView:TTreeView);
private
TVMain : TTreeView;
TNChild : TTreeNode;
end;
procedure TMember.CreatView(TVView:TTreeView);
begin
TVMain := TVView;
TNChild := TVMain.Items.Add(nil,'主界面');
end;
问题在TMember.CreatView 方法的TVMain := TVView; 出错
请教如何解决,谢谢