求个 RzPageControl 标签页上边的关闭按钮

求个 RzPageControl 标签页上面的关闭按钮
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。

查看更多 下一篇