PageControl 怎么打开tabsheet

2018-05-15 09:24:24 2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Pixhawk固定翼飞行控制实战：L1与TECS算法详解（附代码解析）本文深入解析了Pixhawk飞控在固定翼无人机中的核心控制算法：L1导航与TECS总能量控制。通过剖析算法原理、代码实现与实战调参，帮助开发者解决航线跟踪振荡、高度速度不稳定等常见问题，实现精准稳定的自主飞行。阅读详情

用的是rz的控件关闭后怎么打开



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, RzTabs, ExtCtrls, RzPanel, RzButton, RzSplit, StdCtrls;



type

  TForm1 = class(TForm)

    RzSplitter1: TRzSplitter;

    RzPanel1: TRzPanel;

    RzPageControl1: TRzPageControl;

    TabSheet1: TRzTabSheet;

    TabSheet2: TRzTabSheet;

    TabSheet3: TRzTabSheet;

    TabSheet4: TRzTabSheet;

    TabSheet5: TRzTabSheet;

    TabSheet6: TRzTabSheet;

    RzButton1: TRzButton;

    RzButton2: TRzButton;

    RzButton3: TRzButton;

    RzButton4: TRzButton;

    RzButton5: TRzButton;

    RzButton6: TRzButton;

    TabSheet7: TRzTabSheet;

    Label1: TLabel;

    procedure RzButton6Click(Sender: TObject);

    procedure RzButton5Click(Sender: TObject);

    procedure RzButton4Click(Sender: TObject);

    procedure RzButton3Click(Sender: TObject);

    procedure RzButton2Click(Sender: TObject);

    procedure RzButton1Click(Sender: TObject);

    procedure RzPageControl1Close(Sender: TObject;

      var AllowClose: Boolean);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.RzButton6Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=0;

  //TabSheet1.TabVisible:=true;

end;



procedure TForm1.RzButton5Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=1;

  TabSheet2.TabVisible:=true;

end;



procedure TForm1.RzButton4Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=2;

  TabSheet3.TabVisible:=true;

end;



procedure TForm1.RzButton3Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=3;

  TabSheet4.TabVisible:=true;

end;



procedure TForm1.RzButton2Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=4;

  TabSheet5.TabVisible:=true;

end;



procedure TForm1.RzButton1Click(Sender: TObject);

begin

  RzPageControl1.ActivePageIndex:=5;

  TabSheet6.TabVisible:=true;

  //TabSheet6.



end;



procedure TForm1.RzPageControl1Close(Sender: TObject;

  var AllowClose: Boolean);

begin

  AllowClose:=True;



end;



end.

用的是rzpagecontrol的showclosebuttononactivetab属性

怎么么实现关闭打开

关闭在标签的×符号关闭

打开在按钮打开求大神支招！！！！！
之前用的是隐藏但是有一些小问题

...全文

数学建模国赛C题实战：从数据预处理到模型优化的完整流程（附Python代码）本文系统讲解了数学建模国赛C题的完整实战流程，涵盖从数据预处理、模型选择与构建到优化与结果可视化的关键步骤。文章重点分享了如何利用Python进行高效的数据清洗、特征工程，并提供了多种机器学习模型的实现代码与对比验证方法，旨在帮助参赛者构建逻辑清晰、结果可靠的解决方案。阅读详情

HeroesIT

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

又蠢又懒的蓝 2020-12-14

打赏
举报

楼主解决了吗我也是这个问题

lyhoo163 2018-05-15

打赏
举报

创建TabSheet简单，关键是TabSheet1内容加上其它控件。

天行归来 2018-05-15

打赏
举报

之前做过类似，我的思路是这样
1、创建新tab页时的部分代码



class function TSMUIDrv.LoadFuncForm(parent: TRzPageControl; clsName: string): TAWin;

var

  i,j: integer;

  tmp: TComponent;

  sht: TRzTabSheet;

begin

  //form exists?

  for i:=0 to parent.PageCount-1 do

  begin

    for j:=0 to parent.Pages[i].ControlCount-1 do

    begin

      if parent.Pages[i].Controls[j].ClassName=clsName then

      begin

        parent.ActivePageIndex := i;

        result := TAWin(parent.Pages[i].Controls[j]);

        exit;

      end;

    end;

  end;

  //to load new form

  sht := TRzTabSheet.Create(parent);

  sht.PageControl := parent;

  tmp := LoadComponent(clsName,sht);

  if tmp<>nil then

  begin

    result := TAWin(tmp);

    result.Parent := sht;

    TAWin(tmp).BorderStyle := bsNone;

    sht.Caption := TAWin(tmp).Caption;

    result.Align  := alClient;

    sht.Tag := TAWin(tmp).Tag;

    result.Show;

    parent.ActivePageIndex := parent.PageCount-1;

  end

  else begin

    sht.Free;

    result := nil;

  end;

end;

2、关闭窗口





procedure TFmMain.OnCloseActivePage(sender: TObject; var allowClose: boolean);

var

  i: integer;

begin

  for i:=0 to pcCtl.ActivePage.ControlCount-1 do

  begin

    if (pcCtl.ActivePage.Controls[i] is TAWin) then

    begin

      if TAWin(pcCtl.ActivePage.Controls[i]).Dirty and

         (TSMSystem.MessageBox('数据未保存,是否关闭？',MB_ICONQUESTION or MB_YESNO)=IDNO) then

      begin

        allowClose := false;

        exit;

      end;

      TAWin(pcCtl.ActivePage.Controls[i]).Free;

      allowClose := true;

    end;

  end;

end;

3、运行效果

HeroesIT 2018-05-15

打赏
举报

shw014 你好之前用的就是这个但是这个语句有bug 点击关闭按钮只把标签给隐藏页面还显示在哪里

shw014 2018-05-15

打赏
举报

控件的Close时间改一下

procedure TForm1.RzPageControl1Close(Sender: TObject;
  var AllowClose: Boolean);
begin
   RzPageControl1.ActivePage.TabVisible:=false
  //如有必要可与指定当前页
end;

PageControl 怎么打开tabsheet

相关推荐