Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];
Вниз
Создание вкладокв 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.056 c
