按钮组中按钮太多，如何写代码通过滚动鼠标轮来浏览不同的按钮？

要那么多按钮做什么用的？
用GRID代替可否？

按钮组中的每一个按钮代表一个商品，卖哪个商品就点哪个商品。点一个商品，该商品输入到文本框1，再点一个商品，该商品输入到文本框2，就是这个意思，
gird我不熟悉，不知可以代替否？

你要有1W种商品是不是要弄1W个按钮，不喜欢学习是不行的。

给个具体点的示例看看
视实际情况变通一下应该可以

商品区是一个按钮组，点其中一个按钮，该按钮所代表的商品就输入到信息区的商品栏。

你一定要这样做，如4楼言，1万个如何办办呢！

你一定要这样做，给你一个思路：加个页框控件，页框标签上写大类名，同一类的按钮组放同一页中，一页放不下的多设一页……到N页时就能上万了，祝你万事成功！

少量商品用按钮组可以解决，大量商品用按钮组则不可想象！
其实此类分级（分组）联动选择的例子很多，树、下拉列表框等等都能很好的完成，其基础就是建立好便于分组的商品目录表。

用GRID列表选择示例：

** test.prg        
CREATE CURSOR tt (f1 C(3), f2 C(3), f3 C(3))
FOR i=1 TO 9
    INSERT INTO tt VALUES (TRANSFORM(110+i), TRANSFORM(120+i), TRANSFORM(130+i))
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as form
    caption = "点击选取"
    ADD OBJECT grid1 as grid WITH AllowCellSelection=.F.,DeleteMark=.F., RecordMark=.F.,;
        SplitBar=.F.,HeaderHeight=0,RowHeight=50,HighlightForeColor=0,HighlightBackColor=0xFFFFFF

    PROCEDURE _GridMouseDown(nButton, nShift, nXCoord, nYCoord)
        LOCAL nWhere, nRelRow, nRelCol
        nWhere  = 0
        nRelRow = 0
        nRelCol = 0
        IF this.grid1.GridHitTest(nXCoord, nYCoord, @nWhere, @nRelRow, @nRelCol)
            IF nWhere == 3
                this.grid1.ActivateCell(nRelRow, nRelCol)
                this.Caption = "点击选取了 "+TRANSFORM(this.grid1.Columns[nRelCol].Text1.Value)
            ENDIF
        ENDIF
    ENDPROC

    PROCEDURE grid1.init
        this.setall("alignment", 2, "column")
        this.setall("width", 50, "column")
        BINDEVENT(this, "MouseDown",  thisform, "_GridMouseDown")
    ENDPROC
ENDDEFINE

回各路上仙；
我的软件是服务于农资销售的，农资服务季节性强，旺季购农资的人很多，要求录入快这是大前题。
把商品摆放于眼前，直接点选，录入速度比用目录树的形式来查找搜索要快。