Советы по Delphi
Создание страниц компонента Notebook во время работы приложения
| procedure TForm1.Button1Click(Sender: TObject); VarNewPage: TWinControl;beginTabbedNotebook1.Pages.Add (Edit1.Text);NewPage := TabbedNotebook1.Pages.Objects [TabbedNotebook1.Pages.Count - 1]as TWinControl;With TLabel.Create (Self) do beginLeft := 20;Top := 20;Caption := '&Телефон: ';Parent := NewPage;end;With TEdit.Create (Self) do beginLeft := 100;Top := 20;Text := '1-800-555-1212';Parent := NewPage;end;end; |
