procedure MyHandle(AObj:TObject;TabCnt:integer);
var
tmpTag:integer;
idx:inetger;
tmpTS:TTabsheet;
begin
tmpTag:=TButton(AObj).tag;
for idx:=1 to TabCnt do
begin
tmpTS:=TTabsheet(FindComponent('Tabsheet'+IntToStr(idx)));
tmpTS.Visible:=(tmpTS.tag=tmpTag);
end; end;procedure TForm1.Button1Click(Sender: TObject); //其它按钮共用这个处理。
begin
MyHandle(Sender,3);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货