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

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

Добавление Object в TRichEdit.Lines

Provodnick ©   (2006-11-22 15:39:00) 

Почему нельзя добавить объект к строке в TRichEdit или TMemo? После RichEdit1.Lines.AddObject('1', obj) RichEdit1.Lines.objects[n] становится nil! Есть ли способ все-таки привязать объект к строке?

---

DimaBr   (2006-11-22 15:53:00) [1]


constructor TCustomMemo.Create(AOwner: TComponent);
begin
...
 FLines := TMemoStrings.Create;
 TMemoStrings(FLines).Memo := Self;
end;

 TMemoStrings = class(TStrings)
 private
   Memo: TCustomMemo;
 protected
   function Get(Index: Integer): string; override;
   function GetCount: Integer; override;
   function GetTextStr: string; override;
   procedure Put(Index: Integer; const S: string); override;
   procedure SetTextStr(const Value: string); override;
   procedure SetUpdateState(Updating: Boolean); override;
 public
   procedure Clear; override;
   procedure Delete(Index: Integer); override;
   procedure Insert(Index: Integer; const S: string); override;
 end;

Метод
procedure PutObject(Index: Integer; AObject: TObject); virtual;
не реализован, вот объекты и не записываются

---

Provodnick   (2006-11-22 15:52:00) [2]

В общие написал - предъяв нет?-:)))

---

Provodnick   (2006-11-22 15:51:00) [3]

Сорри. Так в какую тему писать?

---

DimaBr   (2006-11-22 15:47:00) [4]

Читаем внимательно в начале страницы

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

---

Наверх