如何动态的加控件！！

Question

如何在memo的每一行后面动态的加一个控件，比如label控件？？
谢谢

Answer 1

大哥 动态加载控件使可以的但是 你的条件 嘿嘿你要计算memo每行字符的高度 才可以啊 还有啊 程序到人家的机器上 可能又不行了

Answer 2

嗯，可以现实，但，怎么说，给你一个思路，你自己看帮助好么：
将Memo的字体赋给一个位图的字体，然后用位图的Canvas.TextHeight求出字体的
高度，就可以设置Label出现的位置了。而动态生成 ：Label:=TLabel1.Create(self);
               Label.parents:=Self;

Answer 3

比如說建立一個按鈕控件
var
    mybutton:tbutton;
begin
    mybutton:=tbutton.Create(self);
    mybutton.Parent:=form1;
    mybutton.Left:=100;
    mybutton.Top:=200;
    mybutton.Caption:='MyButton';end;

Answer 4

你最好是自己重新写一个继承于TMemo的控件。
然后在它的Pain函数中去画Label控件。