5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button3Click(Sender: TObject);
begin
RzPageControl1.CloseActiveTab;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Form1.RzPageControl1.CloseActiveTab;
end;
继续求高手帮忙.关闭按钮.打开关闭很多次都不会出错的。procedure TForm2.Button1Click(Sender: TObject);
var
b : Boolean;
begin
form1.RzPageControl1Close(Sender,b);
end;
procedure TRzPageControl.DestroyActiveTab;
var
Idx: Integer;
begin
if FActivePage <> nil then
begin
Idx := TabIndex;
FActivePage.Free;
if Idx > 0 then
Dec( Idx );
TabIndex := Idx;
end;
end;
这是RzPageControl控件里面关闭按钮的代码.我自己用 FActivePage.Free; 关闭选项卡的时候。开关很多次.就会出错。 ,
procedure TRzPageControl.DestroyActiveTab;
var
Idx: Integer;
begin
if FActivePage <> nil then
begin
Idx := TabIndex;
FActivePage.Free;
if Idx > 0 then
Dec( Idx );
TabIndex := Idx;
end;
end;
这是控件里面关闭按钮的代码.问题是我现在在页面上做个关闭按钮的。就是搞不定啊。谁行.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;
最后小小吐槽一下没有格式化的代码真的很难看清楚。。