我想通过程序方式在界面上加入RzPageControl,并在RzPageControl上动态加入RzTabSheet,我的代码是这样的,但执行后在界面上没有结果,不知道是怎么回事,请大侠帮帮我,万分感谢!
var
TabSheet:TRzTabSheet;
RzPageControl2: TRzPageControl;
begin RzPageControl2:=TRzPageControl.Create(self);
TabSheet:=TRzTabSheet.Create(RzPageControl2); TabSheet.Caption :='test';
TabSheet.Name := 'test';
TabSheet.Parent := RzPageControl2; TabSheet.Show();
RzPageControl2.Visible:=True;
end;
var
TabSheet:TRzTabSheet;
RzPageControl2: TRzPageControl;
begin RzPageControl2:=TRzPageControl.Create(self);
TabSheet:=TRzTabSheet.Create(RzPageControl2); TabSheet.Caption :='test';
TabSheet.Name := 'test';
TabSheet.Parent := RzPageControl2; TabSheet.Show();
RzPageControl2.Visible:=True;
end;
看了,但没用过RzPageControl
begin
Caption := '动态创建';
PageControl := RzPageControl1;
end;