Вниз
Скачать: CL | DM;

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

 
Krants   (2006-11-16 13:45) [0]

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


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

Во первых нужно создавать этот самый 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;


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

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


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


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

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


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

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

property Filter: TStrings read FFilter write SetFilter;


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

> Krants   (16.11.06 15:22) [4]

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


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

> [4] Krants   (16.11.06 15:22)

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


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

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



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

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



Память: 0.46 MB
Время: 0.012 c
2-1193990430
фыва
2007-11-02 11:00
2007.11.25
Шрифты


3-1184329640
NKT
2007-07-13 16:27
2007.11.25
Перезапись файла *.bf MS DOS в формат Delphi (база .gdb)


6-1174653783
Korefey
2007-03-23 15:43
2007.11.25
Работа с FTP сервером.


15-1192783300
Сама Сингулярность
2007-10-19 12:41
2007.11.25
Где пятничные задачки?


3-1184003913
IMHO
2007-07-09 21:58
2007.11.25
SQLite 3




   Наверх