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

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

Составной компонент со списком. [D5, Win95/98]

ed30 ©   (2004-07-15 19:33:00) 

Добрый день.

Создаю компонент, содержащий в себе ListBox и еще несколько других компонентов.

Как можно сделать, чтобы свойство Items вложенного в компонент ListBox было доступно в создаваемом компоненте и его можно было редактировать в DesignTime.

TListEditor = class(TWinControl)
 private
   FListEdit: TEdit;
   FListBox: TListBox;
   FAddButton: TBitBtn;
   FDelButton: TBitBtn;
   FClearButton: TBitBtn;
 protected
   procedure SetItems(Value: TStrings);
   function GetItems: TStrings;
   procedure SetText(Value: String);
   function GetText: String;
 public
   property ListEdit: TEdit read FListEdit;
   property ListBox: TListBox read FListBox;
   property AddButton: TBitBtn read FAddButton;
   property DelButton: TBitBtn read FDelButton;
   property ClearButton: TBitBtn read FClearButton;
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
 published
   property Items: TStrings read GetItems write SetItems;
   property Text: String read GetText write SetText;
 end;

При вызове редактора для property Items выдается ошибка.

---

ed30   (2004-07-16 10:03:00) [1]

Огромное спасибо

---

Юрий Зотов   (2004-07-15 19:47:00) [2]

procedure TListEditor.SetItems(const Value: TStrings);
begin
 FListBox.Items.Assign(Value)
end;

function TListEditor.GetItems: TStrings;
begin
 Result := FListBox.Items
end;

---

Наверх