Q&A

  • PageControl의 ActivePage Propertie의 값을 이용
//사용예 입니다.

//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;

0  COMMENTS