RzPageControl使用中的问题

2013-12-19 09:21:13 324 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DELPHI开发选项卡模式的窗体关于选项卡模式的窗体，先看一个我开发的一个案例图在图片中我们可以看到，主界面是固定排版的，所有模块窗体在打开时，都是在主界面的选项卡上增加一个选项，也可以通过关闭选项卡来关闭窗体，那么实现的方式是什么呢？【第一步】我们首先创建一个过程 procedure OpenForm(FrmName,FrmCaption:string;MyFormCls:TFormClass); 针对此过程的参数简单的解释一下： FrmName：窗体的名称 FrmCaption：显示在选项卡上的标签内容 MyFormCls：阅读详情

我用RzPageControl实现多标签页.但是发现操作某一个窗口的组件的时候.会出错。

TabSheet1是欢迎页面.主窗口建立的时候。我就把TabSheet1显示出来(把form2放进去)
用的以下过程
ShowDockForm(TForm2, RzPageControl1);

。然后我修改欢迎窗口(form2) 上某一个组件就出错.

procedure TForm1.Button1Click(Sender: TObject);
begin

form2.Visible:=true;
RzPageControl1.ActivePageIndex:=0;(默认的第一个是欢迎界面)
Form2.Edit1.Text:='1';
end;
出错....我这是举个例子测试.但是出错。
RzPageControl多标签中.操作窗口需要注意什么吗。请高手指教.

...全文

MuJoCo 关节角速度记录与可视化，监控机械臂运动状态 1. 手动计算关节速度，其中timestep为仿真步长。2. 使用data.qvel直接取得关节速度。阅读详情

屠龙刀

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

屠龙刀 2013-12-19

打赏
举报

再问一下。如果是form3上自己有一个按钮.改变自己的Image1怎么写,刚那个是别的窗口来改他的。现在自己页面上有个窗口要是改呢

屠龙刀 2013-12-19

打赏
举报

明白了.谢谢。还有需要再找你..

sololie 2013-12-19

打赏
举报

这个示例它自己封装了一个TDockTabSheet类和ShowDockForm方法，具体你看那个ShowDockForm方法就知道了那个窗口是在ShowDockForm中动态创建的


    Form := FormClass.Create(TabCtrl);
    LockWindowUpdate(TabCtrl.PageControl.Handle);
    with Form do
      try
        ManualDock(TabCtrl);
        ShowCaption(TabCtrl, Caption);

        Show;
        Form.WindowState := wsMaximized;
        Form.Align := alClient;
        TabCtrl.Data := Form; // 这里保存了当前出创建的窗体的引用
      except
        Free;
      end;
  finally

sololie 2013-12-19

打赏
举报

或者这样，清晰一点


procedure TForm1.Button1Click(Sender: TObject);
var
  f2: TForm2;
begin
  RzPageControl1.ActivePageIndex := 0;
  f2 := TForm2(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data);
  f2.Edit1.Text := '测试';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f3: TForm3;
begin
  RzPageControl1.ActivePageIndex := 1;
  f3 := TForm3(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data);
  if
    f3.openpicturedialog1.execute then
  begin
    RzPageControl1.ActivePageIndex := 0;
    f3.Image1.Picture.loadfromfile(f3.openpicturedialog1.filename);
  end;
end;

屠龙刀 2013-12-19

打赏
举报

有没有窗口操作方便的多标签的方法。

屠龙刀 2013-12-19

打赏
举报

这个正是我想要的疑问。但是.为什么要那样的格式啊.要是我以后数据量很大的窗口要给窗口元素赋值也必须这样的格式吗。谢谢回答。马上结帖

sololie 2013-12-19

打赏
举报


procedure TForm1.Button1Click(Sender: TObject);
begin
  RzPageControl1.ActivePageIndex := 0;
  TForm2(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data).Edit1.Text
    := '测试';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RzPageControl1.ActivePageIndex := 1;
  if
    TForm3(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data).openpicturedialog1.execute then
  begin
    RzPageControl1.ActivePageIndex := 0;
    TForm3(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data).Image1.Picture.loadfromfile(
      TForm3(RzPageControl1.Pages[RzPageControl1.ActivePageIndex].Data).openpicturedialog1.filename);
  end;
end;

屠龙刀 2013-12-19

打赏
举报

http://yunpan.cn/QDrVTQ4IEPYND 谢谢哦。在这了

sololie 2013-12-19

打赏
举报

传百度云盘、360云盘，或是点右上角的“资源”，上传到那里

屠龙刀 2013-12-19

打赏
举报

好的。你有QQ吗。发我我传你看

sololie 2013-12-19

打赏
举报

那个下载来的加个edit上去根本没出错，你把你弄错的项目发来

屠龙刀 2013-12-19

打赏
举报

http://www.codefans.net/soft/12856.shtml 就这个。我在form3上放一个edit...我在主窗口上点个按钮..给form3.edit2.text:='测试' 会出错.怎么解决.

sololie 2013-12-19

打赏
举报

懒得、也不想看了把你的项目发上来，俺给你放delphi里跑一下调试调试得了

屠龙刀 2013-12-19

打赏
举报

http://www.codefans.net/soft/12856.shtml 这有个例子。假如我在那个form3上有个edit1. 我要form3.edit1.text:='1'会出错。谁知道怎么解决.(edit1.text是为了测试方便。我是要换背景的时候出错的 if openpicturedialog1.execute then begin RzPageControl1.ActivePageIndex:=0; form3.Image1.Picture.loadfromfile(openpicturedialog1.filename); end; 出错.

RzPageControl使用中的问题

相关推荐