Создание страниц компонента Notebook во время работы приложения

procedure TForm1.Button1Click(Sender: TObject);
Var NewPage: TWinControl; begin TabbedNotebook1.Pages.Add (Edit1.Text); NewPage := TabbedNotebook1.Pages.Objects [TabbedNotebook1.Pages.Count - 1] as TWinControl; With TLabel.Create (Self) do begin Left := 20; Top := 20; Caption := '&Телефон: ';

Parent := NewPage; end; With TEdit.Create (Self) do begin Left := 100; Top := 20; Text := '1-800-555-1212'; Parent := NewPage; end; end;

[000454]

Содержание раздела