Текущий архив: 2007.12.16;
Скачать: 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 вся ветка
Текущий архив: 2007.12.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
