//panel内加载frame
procedure tfmmain.LoadFrameByClassName(FrameClassName:TMyFrame);
begin
if Assigned(Ffrm) and (not SameText(FrameClassName.ClassName,FCurrentfrmClass)) then
FreeAndNil(Ffrm);
Ffrm := FrameClassName.Create(nil);
Ffrm.Parent := Panel2;
FCurrentfrmClass := FrameClassName.ClassName;
end;
点按钮时会将对应的页面加载到panel2中,但有时上一个frame仍然存在的情况下,现在的页面被加载了,这是怎么回事?不是FreeAndNil已经将上一个frame清除了吗?
有时又没事,出现了什么问题?红色部分是以前frame的
怎样去除?
也是用的LoadFrameByClassName(FrameClassName:TMyFrame);
加载的frame
注释掉就行