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

Добавление Object в TRichEdit.Lines   Найти похожие ветки 

← →
Provodnick ©   (2006-11-22 15:39) [0]

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

---

← →
DimaBr   (2006-11-22 15:47) [1]

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

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

---

← →
Provodnick ©   (2006-11-22 15:51) [2]

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

---

← →
Provodnick ©   (2006-11-22 15:52) [3]

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

---

← →
DimaBr   (2006-11-22 15:53) [4]


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;
не реализован, вот объекты и не записываются

---

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

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



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