Delphi中动态生成标签页
2012-12-05 17:22
309 查看
pagecontrol控件
var
pgc2 : TPageControl; //标签页控件
tabsheet : TTablSheet; //标签
procedure TForm1.btnNewClick(Sender: TObject); //按钮
var
i : Integer;
begin
pgc2 := TPageControl.Create(Self); //Owner
pgc2.Parent := Self; //父控件
pgc2.Align := alClient; //随着窗口最大化而最大化
for i := 0 to 5 do
begin
tabsheet := TTabSheet.Create(pgc2);
with tabsheet do
begin
Caption := 'new' + IntToStr(i);
PageControl := pgc2;
end;
end; //begin
end;
var
pgc2 : TPageControl; //标签页控件
tabsheet : TTablSheet; //标签
procedure TForm1.btnNewClick(Sender: TObject); //按钮
var
i : Integer;
begin
pgc2 := TPageControl.Create(Self); //Owner
pgc2.Parent := Self; //父控件
pgc2.Align := alClient; //随着窗口最大化而最大化
for i := 0 to 5 do
begin
tabsheet := TTabSheet.Create(pgc2);
with tabsheet do
begin
Caption := 'new' + IntToStr(i);
PageControl := pgc2;
end;
end; //begin
end;
相关文章推荐
- jquery html动态生成select标签出问题的解决方法
- DELPHI 利用RTTL实现DAO模式下属性的动态设置及精确生成SQL语句
- 动态生成HTML标签
- jq获取动态生成元素(标签)的参数值
- 动态生成标签栏和Fragment,动态数据插入填充,似今日头条
- 为什么JS动态生成的input标签在后台有时候没法获取到
- jq动态生成标签后无法监听
- jQuery 动态标签生成插件
- jquery中对动态生成的标签不会响应click事件
- 使用jquery动态生成的标签,需要在代码当中绑定才可以实现事件的监听
- js动态生成的标签,点击传递参数到js函数
- delphi中将一个ADOQuery查询的数据结果传递给一个动态生成的ADOQuery
- JS实现多图片上传,无插件,动态生成标签
- js如何为动态生成的标签添加事件
- 根据要显示的字段个数动态生成表格标签table及内容
- jquery中对动态生成的标签响应click事件(一)
- jquery中对动态生成的标签不会响应click事件
- 如何为页面动态生成的元素添加事件(如append()动态添加的标签)
- jquery中对动态生成的标签不会响应click事件
- jquery中对动态生成的标签不会响应click事件