| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание вкладокв TPageControl "по образцу". [D7, XP]

Ezorcist ©   (2006-09-26 15:36:00) 

Доброго времни суток.

Динамично создаю Page в TPageControl. Необходимо что бы вместе с ней создавались и др. компонты (TEdit и тд). Можно ли создавать новую вкладку не пустой, а со всеми компонентами уже имеющейся вкладки, созданной design-time. (или надо так же динамически создавать их, указывая родителя имена и тд)?

Заранее thx. :)

---

Ezorcist   (2006-09-26 17:24:00) [1]

Удалено модератором
Примечание: Offtopic

---

clickmaker   (2006-09-26 17:22:00) [2]

> хотел услышать в ответа что - то типа сохдавая новый фре
> дай ему тип TMyFrame (который был ранее описан), а не просто
> TFrame (как нубу покажется с первого взшляда :\\ )

для очистки совести?
а разве это не очевидно было?

---

Ezorcist   (2006-09-26 17:22:00) [3]

Удалено модератором
Примечание: Offtopic

---

Ezorcist   (2006-09-26 17:10:00) [4]

Все теперь ку. Сам нашел, а собстевнно хотел услышать в ответа что - то типа сохдавая новый фре дай ему тип TMyFrame (который был ранее описан), а не просто TFrame (как нубу покажется с первого взшляда :\\ )

---

Игорь Шевченко   (2006-09-26 17:07:00) [5]

Примерчик:

unit main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 ComCtrls, Frame, StdCtrls;

type
 TForm1 = class(TForm)
   PageControl1: TPageControl;
   TabSheet1: TTabSheet;
   TestFrame1: TTestFrame;
   procedure FormCreate(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

const
 NSheets: Integer = 3;

procedure TForm1.FormCreate(Sender: TObject);
var
 I: Integer;
 TabSheet: TTabSheet;
 AFrame: TTestFrame;
begin
 for I:=1 to NSheets do begin
   TabSheet := TTabSheet.Create (Self);
   TabSheet.PageControl := PageControl1;
   TabSheet.Caption := Format('Detail %d', [I]);
   AFrame := TTestFrame.Create (TabSheet);
   AFrame.Parent := TabSheet;
   AFrame.BoundsRect := TestFrame1.BoundsRect;
 end;
end;

end.

unit Frame;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TTestFrame = class(TFrame)
   Edit1: TEdit;
   Edit2: TEdit;
 end;

implementation

{$R *.DFM}

end.

---

clickmaker   (2006-09-26 17:02:00) [6]

> как динамически создафать фрейм?

как и любой компонент

---

Ezorcist   (2006-09-26 17:01:00) [7]

погуглил и почитал. Так а как динамически создафать фрейм?

---

Сергей М.   (2006-09-26 16:47:00) [8]

> Можно ли создавать новую вкладку не пустой, а со всеми компонентами
> уже имеющейся вкладки, созданной design-time


См.станд.справку, топик "Creating and using component templates"
Ку ?

---

TrainerOfDolphins   (2006-09-26 16:44:00) [9]

> Можно подробнее?

Придётся, наверное, почитать книжку по основам Delphi...:)

---

Ezorcist   (2006-09-26 15:46:00) [10]

Можно подробнее?

---

Megabyte   (2006-09-26 15:45:00) [11]

Це модный компонент!

---

Ezorcist   (2006-09-26 15:40:00) [12]

Еслиб еще знать шо це такэ :/

---

Fay   (2006-09-26 15:37:00) [13]

Фреймы не ку?

---

Наверх