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;