PageControl1.Align :=alClient ;
PageControl1.Style :=tsFlatButtons;
tnewTabsh:=TTabSheet.Create(self);
tnewTabsh.PageControl:=PageControl1 ;
tnewTabsh.Caption :='新建文本1';
tnewRichedit:=TRichEdit.Create (nil);
tnewRichedit.Dock(tnewTabsh ,tnewTabsh.BoundsRect);
tnewRichedit.Align:=alClient;
这样就可以添加一个tabsheet.但如果想要把tabsheet的标题放在下面就报错了。
我是用这句的PageControl1.TabPosition:=tpBottom ;
谁能帮帮忙?告述我这时为什么
"tab position incompatible with current tab style"
PageControl1.Style :=tsFlatButtons;
tnewTabsh:=TTabSheet.Create(self);
tnewTabsh.PageControl:=PageControl1 ;
tnewTabsh.Caption :='新建文本1';
tnewRichedit:=TRichEdit.Create (nil);
tnewRichedit.Dock(tnewTabsh ,tnewTabsh.BoundsRect);
tnewRichedit.Align:=alClient;
这样就可以添加一个tabsheet.但如果想要把tabsheet的标题放在下面就报错了。
我是用这句的PageControl1.TabPosition:=tpBottom ;
谁能帮帮忙?告述我这时为什么
"tab position incompatible with current tab style"
解决方案 »
- 华仔要结婚了!!!
- 为何以下代码读写EXCEL文件,效率这么低的?两个1000多条的记录表,运行半小时还没完啊
- 如何清空listbox的值
- 怎樣讓2153如此的數據在一個范圍內一個一個的由上往下的慢慢顯示出來?
- 对数据库操作的时候出错了.请大侠帮忙
- 关于listbox的问题
- 我新写的考试系统第二版(源程序),欢迎免费下载...
- ADO+ACCESS的存储问题
- 关于session.AddStandardAlias('bc',getcurrentdir,'paradox')??????
- 菜鸟问题:求救动态打开某某数据库文件的代码。如打开*.mdb,*.dbf,*.db.
- 求摇奖程序
- twebbrowser使用问题
然后再创建tabsheet
PageControl1.Style :=tsFlatButtons
具体什么原因,我还不是很清楚。不过,你试试把STYLE属性设成tsTabs。
至于动态事件处理,可以试一试下面的方法:
首先声明函数:
procedure P_clicl(sender:tobject);
begin
//do somthing
end;
然后,动态生成控件后将上面的函数赋给控件的事件处理句柄:
somecontrol.onclick:=P_clicl;
//OK 了
PageControl1.TabPosition只能是tpTop;