PopulateTabSheets (C++)

From RAD Studio Code Examples
Jump to: navigation, search


This examples requires a TPageControl and a TCheckBox. The form OnCreate event handler populates each sheet with an edit control placed somewhere on the client area of the sheet. Unchecking the check box causes the client area (not the tab area) of the Tab Control to become invisible.


void __fastcall TForm1::PageControl1Change(TObject *Sender)
  CheckBox1->Checked = PageControl1->ActivePage->Visible;

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
  PageControl1->ActivePage->Visible = CheckBox1->Checked;

void __fastcall TForm1::FormCreate(TObject *Sender)
	for (int i = 0; i < 10; i++)
	TTabSheet *pPage = new TTabSheet(this); // The owner will clean this up.
	pPage->PageControl = PageControl1;
	pPage->Caption = String(L"Page") + IntToStr(i);
	TEdit *pEdit = new TEdit(this); // The owner will clean this up.
	pEdit->Parent = pPage;
	pEdit->Left = random(pPage->ClientWidth - pEdit->Width);
	pEdit->Top = random(pPage->ClientHeight - pEdit->Height);