首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

RzPageControl使用中的有关问题

2013-12-20 
RzPageControl使用中的问题我用RzPageControl实现多标签页.但是发现操作某一个窗口的组件的时候.会出错。Ta

RzPageControl使用中的问题
  我用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多标签中.操作窗口需要注意什么吗。请高手指教.
[解决办法]


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;

热点排行