A
aacc_1980
Unregistered / Unconfirmed
GUEST, unregistred user!
各位朋友,这是甲窗体的过程
procedure TFrm_TreeView.RzTreeView1GetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.HasChildren then
Node.ImageIndex := 0
else
Node.ImageIndex := 2;
if Node.Expanded then
Node.ImageIndex := 1;
end;
我想在乙窗体的RzTreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);调用甲窗体的RzTreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);过程,请问该怎样写语句,谢谢!!!
procedure TFrm_TreeView.RzTreeView1GetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.HasChildren then
Node.ImageIndex := 0
else
Node.ImageIndex := 2;
if Node.Expanded then
Node.ImageIndex := 1;
end;
我想在乙窗体的RzTreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);调用甲窗体的RzTreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);过程,请问该怎样写语句,谢谢!!!