我按照教程的代码练习一个自动生成pageControl控件的过程,代码如下:

procedure TForm1.N4Click(Sender: TObject); Var I,SheetNum:Integer; begin Form3:=Tform3.Create(Application); Form3.Showmodal; SheetNum:=StrToint('0'+Form3.Edit1.Text); Form3.Free; If SheetNum >0 then Begin AddOneItem.Enabled:=True; {使增加和减少按钮有效} DelOneItem.Enabled:=True; Form1.Color:=clBtnFace; //? CpageControl:=TpageControl.Create(self); CpageControl.Parent:=Form1; {指定form1为CpageControl的父控件.} CpageControl.Align:=AlClient; (*定CpageControl在Form1的位置.*) End;

end;

运行时在Cpagecontrol.parent:=Form1;和CpageControl.Align:=Alclient;的位置提示错误:MainUnit.Pas(140):Incompatible Types:'TwidgeControl' And 'Form1 '.不知时何原因,我已经在Uses中定义了QcomCtrls,并在pablic中定义 CpageControl:TPageControl; CtabSheet:TTabSheet;