Roland писал(а):Until
fredvs has finished registering, here is his answer:
- Код: Выделить всё
//dynedit.frame := tedit1.frame; //Чем это заменить???
dynedit.frame := tcaptionframe.create(iscrollframe(self));
dynedit.frame.caption := 'Hello';
Спасибо большое! Сработало.
Merci beaucoup! It worked.
Я также перешёл по ссылке и увидел ответ fred'а'vs про создание объекта
face, dynedit.face := tface.create(iface(self)); — он мне тоже пригодится в будущем. Спасибо!
I've also followed the link and saw fredvs' answer about creating the
face object, dynedit.face := tface.create(iface(self)); — it will be useful for me too. Thanks!
Roland писал(а):I tested it (with a tintegeredit). It works, but the component doesn't look exactly like the one created in designer. :?
Как ответил fredvs на английском форуме, нужно ещё установить значение свойства
levelo.
As fredvs answered, one also needs to set the value for the
levelo property.
Вот что у меня получилось в итоге:
Here's what I've ended up with:
- Код: Выделить всё
procedure tmainfo.mainformcreated(const sender: TObject);
begin
dynedit := tedit.Create(self);
dynedit.bounds_cx := 100;
dynedit.bounds_cy := 21;
dynedit.frame := tcaptionframe.create(iscrollframe(self));
dynedit.frame.levelo := -2;
insertwidget(dynedit, makepoint(300, 10));
dynedit.show;
end;
Я
добавил эту информацию в вики, потому что мне кажется, что она может быть полезна не только мне.
I have
added this information to the wiki, because I think it can be useful to other people, too.
