Question

delphi 中 pagecontrol 用什么判断TabSheet的存在 ,存在激活,不能存创建

Answer 1

//完善下一楼的答案，此例子前提是有了pagecontrol1但没有page
var ts: TTabSheet;
begin
if pagecontrol1.PageCount=0 then
begin
ts:= TTabSheet.Create(pagecontrol1);
ts.Caption:= 'lasd';
ts.PageControl:=pagecontrol1;
end;
pagecontrol1.ActivePage:=pagecontrol1.Pages[0] ;
end;

Answer 2

//这句用来判断是否拥有tabsheet的存在；
if pagecontrol1.PageCount<>0 then showmessage('有tabsheet');
//这句用来创建、
var
ts: TTabSheet;
begin
ts:= TTabSheet.Create(Pc);
ts.Caption:= 'lasd';
ts.PageControl:= pc;
end;