//사용예 입니다.
//PageControl의 OnChange 이벤트에 코딩합니다.
procedure TForm1.PageControl1Change(Sender: TObject);
begin
//TabeSheet2 : TabSheet의 Name Propertie값
if PageControl1.ActivePage = TabSheet1 then
begin
ShowMessage('TabSheet1 Selected');
end;
if PageControl1.ActivePage = TabSheet2 then
begin
ShowMessage('TabSheet2 Selected');
end;
end;