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"

解决方案 »

  1.   

    你先设置好pasgecontrol的tabposition
    然后再创建tabsheet
      

  2.   

    去掉这一行:
    PageControl1.Style :=tsFlatButtons
      

  3.   

    to 猫猫
    具体什么原因,我还不是很清楚。不过,你试试把STYLE属性设成tsTabs。
    至于动态事件处理,可以试一试下面的方法:
    首先声明函数:
    procedure P_clicl(sender:tobject);
    begin
    //do somthing
    end;
    然后,动态生成控件后将上面的函数赋给控件的事件处理句柄:
    somecontrol.onclick:=P_clicl;
    //OK 了
      

  4.   

    如果PageControl1.Style :=tsFlatButtons,
    PageControl1.TabPosition只能是tpTop;