Цвет текста в Мемо через Handle

Posted by maloy under Delphi, Архив

Sion

Динамически создаются некое число объектов TMemo каким макаром поменять цвет текста зная только HANDLЕ-ы. (Размер, шрифт и пр. всё меняется)

rpy3uH

если ты создаёшь сам эти объекты в своей программе
то тебе проще изменять цвет не пользуясь хендлом
таким методом

var

memos:array[1..n] of tmemo;

...

for i:=...

begin

memos:=tmemo.create(self);

memos.font.......

end;

потом всё это создаёшь и через массив обращаешься в ним
если количество мемок неограниченное то можно пользоваться объектом TList

var

LST:Tlist

OBJ:TMEMO;

....

lst:=tlist.create;

for i:=....

begin

OBJ:=Tmemo.create;

LST.add(pointer);

end;

потом к ним обращаешься через
lst.items[index] или lst[index]

тема на форуме от 2006 года

Похожие статьи

• Все экземпляры класса