小
小学生_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语法用法的汇总.谢了!
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语法用法的汇总.谢了!