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

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

Как сделать чтоб...

UserL ©   (2002-11-26 14:07:00) 

Можно ли на любой компонент (например на TPanel) накидать элементов и сохранить в отдетьный модуль...
Например

type
TPanelNew = class(TPanel)
Edit1: TEdit;
Label1: TLabel;
...
end;

var Pan: TPanelNew;

И все это сохранить в файле NewPanel.pas

А из проекта потом


procedure create;
var n: TPanelNew;
begin
n := TPanelNew.Create(Self);
n.Parent := Form1;
end;


И все компаненты, которые на новой панели навешаны, чтоб были видимые

---

KSergey   (2002-11-26 14:43:00) [1]

> UserL (26.11.02 14:19)
> В частности мне нужно на TPageControl вешать неопределенное
> количество страниц (TTabSheet) на которых навешаны гриды
> и т.д.
> Ну так вот... На TTabSheet можно набросать гридов, кнопок,
> едитов... А потом этот TTabSheet просто клонировать???

А накиданное - оно известн на этапе разработки? Если да - тогда именно фрейм - то, что нужно. У меня, например, так и сделано: нарисован фрейм с карточкой, а кол-во вкладок зависит от внешних условий, и создаются они динамически. При этом на каждую вешается по заранее нарисованному фрейму - вот и получаем n вкладок с одинаковыми (по виду, не содержанию полей/гридов) корточками. Вы же этого добиваетесь?

---

Smithson   (2002-11-26 14:39:00) [2]

Рисуешь свой табшит. Нажимаешь на ем правой кнопкой мыши и выбираешь пункт меню - Add to repository. Потом открытваешь основное меню делфей - File-New..., идешь на закладку, куда сохранил свой табшит (по умолчанию - Forms) и воротишь из него, чего хочешь - копию, потомка или напрямую используешь.

Хотя лично я все делаю фреймами и на табшиты кладу именно фреймы.

---

Reindeer Moss Eater   (2002-11-26 14:38:00) [3]

Так????
Не так
Но вот Гридов и кнопок на табе нету...
А их кто-нибудь создал?

Проектируется форма с нужными контролами.
Сохраняется или добавляется в репозиторий.
Дальше File->New->(Others)->Project1->MyCoolForm1 (Inherited)
После этого имеем наследника TMyCoolForm1 со всеми контролами

---

UserL   (2002-11-26 14:27:00) [4]

> MBo
А че ето такое?

---

UserL   (2002-11-26 14:26:00) [5]

Ну...
Написал так:

type
TNewTab = class (TTabSheet)
StringGrid1: TStringGrid;
Button1: TButton;
...
end;

Form1 = class (TForm);
NewTab: TNewTab;
...
end;


Так????
Но вот Гридов и кнопок на табе нету...

---

MBo   (2002-11-26 14:23:00) [6]

>UserL
CreateComponentTemplate?

---

Reindeer Moss Eater   (2002-11-26 14:20:00) [7]

Наследование же зачем-то придумали.

---

UserL   (2002-11-26 14:19:00) [8]

В частности мне нужно на TPageControl вешать неопределенное количество страниц (TTabSheet) на которых навешаны гриды и т.д.
Ну так вот... На TTabSheet можно набросать гридов, кнопок, едитов... А потом этот TTabSheet просто клонировать???

---

UserL   (2002-11-26 14:15:00) [9]

Нет, фрэйм не пойдет...

---

Smithson   (2002-11-26 14:09:00) [10]

Можно.
это называется TFrame

---

Наверх