读书人

RzPageControl使用中的有关问题

发布时间: 2013-12-20 17:03:19 作者: rapoo

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;

读书人网 >.NET

热点推荐