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

← →
UserL (2002-11-26 14:07) [0]

Можно ли на любой компонент (например на 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;

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

← →
Smithson © (2002-11-26 14:09) [1]

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

← →
UserL (2002-11-26 14:15) [2]

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

← →
UserL (2002-11-26 14:19) [3]

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

← →
Reindeer Moss Eater (2002-11-26 14:20) [4]

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

← →
MBo © (2002-11-26 14:23) [5]

>UserL
CreateComponentTemplate?

← →
UserL (2002-11-26 14:26) [6]

Ну...
Написал так:
type TNewTab = class (TTabSheet) StringGrid1: TStringGrid; Button1: TButton; ... end; Form1 = class (TForm); NewTab: TNewTab; ... end;

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

← →
UserL (2002-11-26 14:27) [7]

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

← →
Reindeer Moss Eater (2002-11-26 14:38) [8]

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

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

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

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

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

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

Как сделать чтоб... Найти похожие ветки