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

← →
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]

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

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