Código Delphi [-] procedure TForm1.PageControl1Change(Sender: TObject); begin ShowMessage('TabSheet'+IntToStr(PageControl1.TabIndex+1)); end;
procedure TForm1.PageControl1Change(Sender: TObject); begin ShowMessage('TabSheet'+IntToStr(PageControl1.TabIndex+1)); end;