Скачать: CL | DM;

Составной компонент со списком.   Найти похожие ветки 

← →
ed30   (2004-07-15 19:33) [0]

Добрый день.

Создаю компонент, содержащий в себе 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 выдается ошибка.

---

← →
Юрий Зотов ©   (2004-07-15 19:47) [1]

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

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

---

← →
ed30   (2004-07-16 10:03) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c