procedure TfrmPageControl.FormCreate(Sender: TObject);//事件处理过程,FormCreate一般在窗口创建时调用的,但是也不绝对,因为可以控制.
begin //开始
with pgcDemo do //2:什么意思? //with里面的相当于pgcdemo.hottrack//pgcdemo.tabposition//只是为了简便所以用了with
begin
HotTrack := True; //3:HotTrack是个什么属性???//控件都不知道是什么属性不敢乱定义
TabPosition := tpBottom;让控件一直保持在底部
end;
end;
procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
{5:明明取名为frmPageControl,为什么却变成了TfrmPageControl???}//Delphi很多类都是T开头的啊.比如EDit控件,他的类就是Tedit
var //声明
tmpTabSheet: TTabSheet; //6:什么意思???//申明一个变量,类型为TTabsheet类
begin
if pgcDemo.PageCount > 6 then //7:如果pgcDemo 页面大于6时,那么
Exit; //退出.8:Exit是个什么词???退出处理过程
tmpTabSheet := TTabSheet.Create(pgcDemo); //9:什么意思??初始化Tmptabsheet变量
tmpTabSheet.Caption := ' 页面' + IntToStr(pgcDemo.PageCount + 1);
{10:什么意思??}//把tmptabsheet的caption属性改为当前页面
tmpTabSheet.PageControl := pgcDemo;
end;
只能翻译这么多拉.
开新版了..可以发一些关于编程的问题..好YE..