5,929
社区成员
发帖
与我相关
我的任务
分享请问如何动态创建frame，并把frame放到tabcontrol或pagecontrol中去，当tabindex改变时关闭frame，创建令一个新的
为什么在tabindex 3中放控件，在1、2中也看得见
...全文
请发表友善的回复…
发表回复
laihecongxi 2002-12-31
- 打赏
- 举报
1.可以从名字上看出来.
tabcontrol 标签控制-对同一页面进行不同控制
应用:如腾讯浏览器.delphi组件面板
pagecontrol 页面控制-对不同页面进行控制.
2.
如何动态创建frame，并把frame放到tabcontrol或pagecontrol中去，当tabindex改变时关闭frame，创建令一个新的???
type
TForm2 = class(TForm)
TabControl1: TTabControl;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Frame:Tframe3;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Frame := Tframe3.Create(nil);
Frame.Dock(TabControl1,TabControl1.BoundsRect);
Frame.Align:= alClient;
end;
procedure TForm2.TabControl1Change(Sender: TObject);
begin
if Assigned(Frame) then
begin
Frame.Free;
Frame:=nil;
end
else
Button1.Click;
end;
tabcontrol 标签控制-对同一页面进行不同控制
应用:如腾讯浏览器.delphi组件面板
pagecontrol 页面控制-对不同页面进行控制.
2.
如何动态创建frame，并把frame放到tabcontrol或pagecontrol中去，当tabindex改变时关闭frame，创建令一个新的???
type
TForm2 = class(TForm)
TabControl1: TTabControl;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Frame:Tframe3;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Frame := Tframe3.Create(nil);
Frame.Dock(TabControl1,TabControl1.BoundsRect);
Frame.Align:= alClient;
end;
procedure TForm2.TabControl1Change(Sender: TObject);
begin
if Assigned(Frame) then
begin
Frame.Free;
Frame:=nil;
end
else
Button1.Click;
end;
gxg3 2002-12-31
- 打赏
- 举报
up
