阿
阿韬
Unregistered / Unconfirmed
GUEST, unregistred user!
关于使用Frame的问题。
我定义了一个Frame:TfraAllList;
在一个工程中如下调用了这个Frame
var
uFraAllList: TfraAllList;
begin
...
if (uFraAllList = nil) then
begin
uFraAllList := TfraAllList.Create(nil);
end;
uFraAllList.Parent := SBoxBasic;
//SBoxBasic是Panel上的一个TScrollBox控件
uFraAllList.proInit(TVCustTree);
//TVCustTree是一个TTreeView控件,proInit是TfraAllList中定义在publish中的方法
...
end;
TfraAllList中的程序如下:
在private中
TVCustTree: TTreeView;
在public中
procedure proInit(tv: TTreeView);
procedure TfraAllList.proInit(tv: TTreeView);
begin
...
TVCustTree := tv;
...
end;
然后在这个Frame的一个按钮的onclick事件中有如下代码:
TVCustTree.Selected := TVCustTree.Selected.Item[0];
在程序的运行过程中,如果点击这个Frame里按钮,就报出内存错误:
'Access violation at address 00403846 in module 'MCM.exe'. Read of address
FFFFFFD0'. Process stopped. Use Step or Run to continue.
请问各位怎么解决呀。谢谢!
我定义了一个Frame:TfraAllList;
在一个工程中如下调用了这个Frame
var
uFraAllList: TfraAllList;
begin
...
if (uFraAllList = nil) then
begin
uFraAllList := TfraAllList.Create(nil);
end;
uFraAllList.Parent := SBoxBasic;
//SBoxBasic是Panel上的一个TScrollBox控件
uFraAllList.proInit(TVCustTree);
//TVCustTree是一个TTreeView控件,proInit是TfraAllList中定义在publish中的方法
...
end;
TfraAllList中的程序如下:
在private中
TVCustTree: TTreeView;
在public中
procedure proInit(tv: TTreeView);
procedure TfraAllList.proInit(tv: TTreeView);
begin
...
TVCustTree := tv;
...
end;
然后在这个Frame的一个按钮的onclick事件中有如下代码:
TVCustTree.Selected := TVCustTree.Selected.Item[0];
在程序的运行过程中,如果点击这个Frame里按钮,就报出内存错误:
'Access violation at address 00403846 in module 'MCM.exe'. Read of address
FFFFFFD0'. Process stopped. Use Step or Run to continue.
请问各位怎么解决呀。谢谢!