编程问题需要帮助! ( 积分: 0 )

  • 主题发起人 主题发起人 小学生_hjz
  • 开始时间 开始时间

小学生_hjz

Unregistered / Unconfirmed
GUEST, unregistred user!
pgcDemo: TPageControl;
btnAddPage: TButton;
procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
var
tmpTabSheet: TTabSheet;
begin
if pgcDemo.PageCount > 6 then
Exit;
1,tmpTabSheet := TTabSheet.Create(pgcDemo);
______________________________________________________
tmpTabSheet.Caption := ' 页面' + IntToStr(pgcDemo.PageCount + 1);
2,mtmpTabSheet.PageControl := pgcDemo;
__________________________________________
end;
我是个出学者在看书时遇到上面的例程(一段截取)其中第1处的语法的用法不太明白.
第2处程序看似无足轻重可去掉2处程序运行以后看不出程序的运行效果,不明白为什么.还望大家多多指教.还有,谁知道在哪能下到关于delphi语法用法的汇总.谢了!
 
1,tmpTabSheet := TTabSheet.Create(pgcDemo);
这是用Create定义一个页,
2,mtmpTabSheet.PageControl := pgcDemo;
则是把这个页加到PageControl控件(pgcDemo)里面去,
你去掉了,他就不加了,你再怎么定义没有加上去,不就等于没有用了吗?
 
后退
顶部