Компонент со свойством TStrings.

[Impuls1989]

Добрый день уважаемые эксперты! Пишу компонент и наткнулся на две стенки
1. Как создать свойство компонента, такое же как, допустим, в TMemo свойство Lines. Тобиш нажал на кнопочку "..." и пошел задавать строки. Знаю что это свойство должно быть типа TStrings, но ничего не получается(((
1.jpg
2. Мой компонент должен связывать вместе еще 5 компонентов (в них прописывать мало чего надо). Возможно ли сделать так чтобы эти компоненты были как переменные моего класса и не существовали как отдельные компоненты? Вот примерно так:

private
    FpFIBDatabase:TpFIBDatabase;
    FpFIBTransaction:TpFIBTransaction;
    FpFIBDataSet:TpFIBDataSet;
    FDataSource:TDataSource;

Пробовал в конструкторе вызывать Create данных компонентов, но приложение ругается(((. 2.jpg
Заранее благодарен за ваши ответы.

Вот примерно так это будет выглядеть:

TDBBunch = class(TComponent)
  private
    FpFIBDatabase:TpFIBDatabase;
    FpFIBTransaction:TpFIBTransaction;
    FpFIBDataSet:TpFIBDataSet;
    FDataSource:TDataSource;
    FDBGrid:TDBGrid;

    FUserName:string;
    FPassword:string;

    FDBName:string;
    FBunch:boolean;
    FStart:boolean;

    FHZ:TStrings;

    procedure SetDBGrid(DBGrid:TDBGrid);                                  
    function GetDBGrid:TDBGrid;                                          
    procedure SetUserName(UserName:string);
    function GetUserName:string;
    procedure SetPassword(Password:string);
    function GetPassword:string;
    Procedure SetBunch(Bunch:boolean);
    Procedure SetStart(Start:boolean);
  protected
   { Protected declarations }
  public
    { Public declarations }
  published
    constructor Create(AOwner:TComponent);override;
   
    property DBGrid:TDBGrid read GetDBGrid write SetDBGrid;          
    property UserName:string read GetUserName write SetUserName;           
    property Password:string read GetPassword write SetPassword;         
    property DBName:string read FDBName write FDBName;      
    property Bunch:boolean read FBunch write SetBunch;               
    property Start:boolean read FStart write SetStart;
    property HZ:TStrings read FHZ write FHZ;
  end;

[АНК]

TStrings это же абстрактный класс. Надо использовать TStringList

[Impuls1989]

Сообщение от АНК

TStrings это же абстрактный класс. Надо использовать TStringList

Таже самая ошибка. Может надо процедуры для read write какие-то прописывать?

[Impuls1989]

Все! С первым вопросом почти разобрался. На половину это были глюки Delphi.
Перегрузил комп и все заработало. Делал так:

 private
            FHZ:TStringList;
            property HZ:TStringList read FHZ write FHZ;
.................
constructor TDBBunch.Create;
begin
  FHZ:=TStringList.Create;

Но теперь при удалении компонента или при закртытии проекта получаю следующие сообщения:
2.jpg

1.jpg
___________________________________ ___________________________________ ______________

Все разобрался!!! Все дело в том, что я явно вызывал деструктор TStringList в деструкторе объекта.
Теперь осталось только разобраться со вторым вопросом.
-----------
Получается какой-то монолог))))

[Пепел Феникса]

сначало
надо самого себя создать(память выделить)
inherited Create;
потом уже дейсвия оперирующие с полями класса

[Impuls1989]

Сообщение от Пепел Феникса

сначало
надо самого себя создать(память выделить)
inherited Create;
потом уже дейсвия оперирующие с полями класса

Я так и делаю. Тут вопрос в другом. Нужно ли мне вызывать конструкторы всех моих компонентов:

constructor TDBBunch.Create;
begin
  inherited Create(AOwner);
  FDBGrid:=nil;
  FpFIBDatabase:=TpFIBDatabase.Create(self);
  FpFIBTransaction:=TpFIBTransaction.Create(self);
  FpFIBDataSet:=TpFIBDataSet.Create(self);
  FDataSource:=TDataSource.Create(self); 
end;

Или можно обойтись просто объявлением переменных:

 private
    FpFIBDatabase:TpFIBDatabase;
    FpFIBTransaction:TpFIBTransaction;
    FpFIBDataSet:TpFIBDataSet;
    FDataSource:TDataSource;
.......................

И если нужно вызывать конструкторы, то деструкторы вызовуться автоматом, или их тоже надо явно вызывать?

[Пепел Феникса]

и конструкторы нужно и деструкторы...
так как переменная класса это указатель...но он должен указывать куда то...и освобождать надо.

[Impuls1989]

Сообщение от Пепел Феникса

и конструкторы нужно и деструкторы...
так как переменная класса это указатель...но он должен указывать куда то...и освобождать надо.

Так, ну с эти разобрался! Но снова наткнулся на подводный камень.

Свой первый вопрос я реализовывал для того, чтобы во время редактирования и выполнения программы, можно было легко поменять названия столбцов в таблице DBGrid. Во время редактирования подписи полей меняются (что есть очень здорово), но во время выполнения программы названия меняются на стандартные. Собственно вопрос, в какой части компонента можно прописать данное присваивание, чтобы не вызывать по 100 раз процедуру?

[Пепел Феникса]

так...в дизайн тайме меняются, а в рантайме стандарт?

[Impuls1989]

Сообщение от Пепел Феникса

так...в дизайн тайме меняются, а в рантайме стандарт?

Именно так