共用事件
procedure TForm1.Button1Click(Sender: TObject);
var
tmpTag:integer;
idx:inetger;
tmpTS:TTabsheet;
begin
tmpTag:=TButton(Sender).tag;
for idx:=1 to 3 do
begin
tmpTS:=TTabsheet(FindComponent('Tabsheet'+IntToStr(idx)));
tmpTS.Visible:=(tmpTS.tag=tmpTag);
end;
end;