Скачать: CL | DM;

Создание вкладокв TPageControl "по образцу".   Найти похожие ветки 

← →
Ezorcist   (2006-09-26 15:36) [0]

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

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

Заранее thx. :)

---

← →
Fay ©   (2006-09-26 15:37) [1]

Фреймы не ку?

---

← →
Ezorcist   (2006-09-26 15:40) [2]

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

---

← →
Megabyte ©   (2006-09-26 15:45) [3]

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

---

← →
Ezorcist   (2006-09-26 15:46) [4]

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

---

← →
TrainerOfDolphins ©   (2006-09-26 16:44) [5]

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

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

---

← →
Сергей М. ©   (2006-09-26 16:47) [6]

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


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

---

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

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

---

← →
clickmaker ©   (2006-09-26 17:02) [8]

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

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

---

← →
Игорь Шевченко ©   (2006-09-26 17:07) [9]

Примерчик:

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.

---

← →
Ezorcist   (2006-09-26 17:10) [10]

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

---

← →
clickmaker ©   (2006-09-26 17:22) [11]

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

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

---

← →
Ezorcist   (2006-09-26 17:22) [12]

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

---

← →
Ezorcist   (2006-09-26 17:24) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.034 c