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

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

Использование дополнительного редактора в О.Іnspector

Krants ©   (2006-11-16 13:45:00) 

Конечно вопрос возможно немного не потеме, но никак не могу разобраться...
Вот к примеру в разработаном компоненте использую пер. "Filter" как TStrings. Необходимо иметь возможность редактировать эти данные в режиме разработки программы, т.е. в О.Іnspector`е. Заданный заранее "Filter" в published выводится в О.Іnspector`е  но при нажатии на него выводится ошибка.
Подскажите как можно использовать дополнительный редактор на подобии как "Lines" в TMemo, "EditMask" в TMaskEdit и пр.

---

Krants   (2006-11-16 15:27:00) [1]

Жутко извиняюсь, нашол один старый баг
который исправлял но перекомпилить забыл.
Все пашет. спасибо.

---

Юрий Зотов   (2006-11-16 15:25:00) [2]

> Krants   (16.11.06 15:22) [4]

Если бы это было так, то все бы работало.
А если все же не работает - значит, отличия есть.

---

RASkov   (2006-11-16 15:25:00) [3]

> [4] Krants   (16.11.06 15:22)

Покажи конструктор и SetFilter;

---

Krants   (2006-11-16 15:22:00) [4]

отличаетсья лишь Items>Filter

property Filter: TStrings read FFilter write SetFilter;

---

DimaBr   (2006-11-16 14:54:00) [5]

> Все аналогично!

не верю, код на стол...

---

Krants   (2006-11-16 14:44:00) [6]

Все аналогично! а во вторых?

---

DimaBr   (2006-11-16 14:19:00) [7]

Во первых нужно создавать этот самый TStrings, проще всего через TStringList, да и присвоение свойстве делать почеловечески


type
TMyComponent = class(TComponent)
private
 fItems: TStrings;
 procedure SetItems(const Value: TStrings);
public
 constructor Create(AOwner: TComponent);override;
 destructor Destroy;oberride;
published
 property Items: TStrings read fItems write SetItems
end;

...
procedure TMyComponent.SetItems(const Value: TStrings);
begin
 fItems.Assign(Value);
end;

constructor TMyComponent.Create(AOwner: TComponent);
begin
 inherited;
 fItems := TStringList.Create;
end;

destructor TMyComponent.Destroy;
begin
 fItems.Free;
 inherited;
end;


---

Наверх