:)

解决方案 »

  1.   

    procedure TfrmuMain.CreateRaveText(sName,sText:String;dLeft,dTop:Double);
    var  MyText:TRaveText;
    begin
      MyText:=TRaveText.Create(NowPage);
      MyText.Parent:=NowPage;
      MyText.Name:=sName; 
      MyText.Top:=dTop;
      MyText.Left:=dLeft;
      MyText.Width:=200;
      MyText.Height:=200;
      MyText.BackColor :=clWhite;
      MyText.Text:=sText;
      AddComponent(MyText);
    end;
      

  2.   

    http://expert.csdn.net/Expert/topic/1743/1743788.xml?temp=.9731714http://se-ed.net/thaidelphicc/xml/updatepack/