PopulateTabSheets (C++)

From RAD Studio Code Examples
Jump to: navigation, search

Description

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.

Code

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);
  }
  PageControl1Change(Sender);
}

Uses

Personal tools
Assistance