LISTBOX & PageControl

← →
Ghost. (2002-01-28 09:55) [1]

// Добавить закладку
procedure TMainForm.AddPageButtonClick(Sender: TObject);
begin
with TabbedNotebook1 do
Pages.Add(Format("Page %d",[Pages.Count-1]));
end;

// вставить элемент управления (control) в страницу
procedure TMainForm.AddControlButtonClick(Sender: TObject);
var
L: TListBox;
P: TWinControl;
begin
L := TListBox.Create(Self);
with TabbedNotebook1 do
begin
P := Pages.Objects[PageIndex] as TWinControl;
L.Parent := P;
L.SetBounds(10, 10, 100, 100);
// вставка заголовка страници в edit control//
// You don"t have to perform this step. //
L.Items.Add(TTabPage(P).Caption);
end;
end;

Если я правильно понял

LISTBOX & PageControl Найти похожие ветки