递归调用方面的解决办法

递归调用方面的
递归调用生成动态按钮，像一个树一样，比如：
        a
        --aa1
        --aa2
        b
        --bb1
        --bb2
生成按钮的排布为：a   aa1   aa2
                                    b   bb1   bb2
用递归调用生成

[解决办法]
procedure CreateNextButton(row,col:integer);
var
Button: TButton;
begin

//这里是创建按钮的代码
Button := TButton.create(self);
...
//
Button.top := row*20; //这里加个固定值的话就是按值间隔
Button.Left := col*50;

inc(row);
inc(col);
if (row> 2) and (col> 3) then exit;//设为2行3列

CreateNextButton(row,col);
end;
第一次调用是 CreateNextButton(0,0);

没环境调试,可能会有点小错误...