求个 RzPageControl 标签页上边的关闭按钮
求个 RzPageControl 标签页上面的关闭按钮
http://yunpan.cn/QD4GjbgVfnFFS 我想了几个办法。可以关闭。但是关闭5-6次后(打开再关闭.打开再关闭)就会出错误.请高手帮忙.求个完美的关闭按钮代码。(简单高效的)
------解决方案--------------------
出的什么错误？总感觉先Free有点不靠谱啊，建议先获取你现在的页面和要跳转到的页面，跳过去，再Free。另外按我的直觉，PageCount=0还Free怪怪的。。我小改一下试试。
最后小小吐槽一下没有格式化的代码真的很难看清楚。。
------解决方案--------------------
你的方法有问题，这样就行了。
------解决方案--------------------
估计楼主的Raize控件版本太低。我用楼主的代码，没有做任何修改，重新编译一次，问题就解决了。我的版本：delphi 2006，Raize 5.5.1。
http://yunpan.cn/QD4GjbgVfnFFS 我想了几个办法。可以关闭。但是关闭5-6次后(打开再关闭.打开再关闭)就会出错误.请高手帮忙.求个完美的关闭按钮代码。(简单高效的)
------解决方案--------------------
出的什么错误？总感觉先Free有点不靠谱啊，建议先获取你现在的页面和要跳转到的页面，跳过去，再Free。另外按我的直觉，PageCount=0还Free怪怪的。。我小改一下试试。
procedure TForm15.RzToolButton6Click(Sender: TObject);
var
index: integer;
begin
Index := form1.RzPageControl1.ActivePageIndex;
if form1.RzPageControl1.PageCount > 1 then
begin
if index < form1.RzPageControl1.PageCount - 1 then
begin
form1.RzPageControl1.ActivePage := form1.RzPageControl1.Pages[index+1];
form1.RzPageControl1.Pages[Index].Free;
end
else
begin
form1.RzPageControl1.ActivePage := form1.RzPageControl1.Pages[index - 1];
form1.RzPageControl1.Pages[Index].Free;
end;
end
else
if Assigned(form1.RzPageControl1.Pages[0]) then
form1.RzPageControl1.Pages[0].Free;
end;
最后小小吐槽一下没有格式化的代码真的很难看清楚。。
------解决方案--------------------
你的方法有问题，这样就行了。
procedure TForm2.Button1Click(Sender: TObject);
var
b : Boolean;
begin
form1.RzPageControl1Close(Sender,b);
end;
------解决方案--------------------
估计楼主的Raize控件版本太低。我用楼主的代码，没有做任何修改，重新编译一次，问题就解决了。我的版本：delphi 2006，Raize 5.5.1。