盒子论坛 v2.1

这个方法是可以，但是有个缺点，我的grid有好多的行，每行我都想让出现下拉
列表框，只能在程序中动态放置列表框，这样就很难把握列表框在grid中的位置
，因为grid中两个cell的间隙也是有宽度的。
----------------------------------------------
不爱我-就别靠近我。

作者：

redsworft (牛肉干)	★☆☆☆☆	-
	盒子活跃会员

2003/9/12 11:26:01

4楼：

那就对了。我记得好像有个什么grid可以直接指定List吧

此帖子包含附件:

大小:23.1K

----------------------------------------------
哇靠 ~~~~~~~~~~~~~~
这个帖子一定要回!

作者：

amer (amer)	★☆☆☆☆	-
	盒子活跃会员

2003/9/12 12:05:09

5楼：

这个好，帮你UP。
----------------------------------------------
-

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2003/9/12 13:08:00

6楼：

哪个grid是这样的？是不是外部控件？
----------------------------------------------
不爱我-就别靠近我。

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/12 19:43:32

7楼：

如何在StringGrid的Cell中显示一个ComboBox
Dhome 1999/05/21

procedure TForm1.FormCreate(Sender: TObject);
begin
   combobox1.visible := false; //初始化
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,ARow: Integer; var CanSelect: Boolean);
var
  R: TRect;
  org: TPoint;
begin
  With Sender As TStringgrid Do
  If (ACol = 2) and (ARow >= FixedRows) Then //在第二列显示一个ComboBox
  Begin
    //取消选中模式
     perform( WM_CANCELMODE, 0, 0 );

    //确定ComboBox的位置
     R := CellRect( Acol, Arow );
     org:= Self.ScreenToClient( ClientToScreen( R.topleft ));
     With combobox1 do
     begin
       setbounds( org.X, org.Y, r.right-r.left, height );
       itemindex := Items.IndexOf( Cells[ acol, arow ] );
       Show;
       BringTofront;

       //使得ComboBox称为输入的焦点
       SetFocus;
       DroppedDown := true;
     end;
  End;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject); //把在Combox选中的内容显示在StringGrid中
begin
   with sender as TCombobox do
   begin
      hide;
      if itemindex >= 0 then
      with stringgrid1 do
        cells[ col, row ] := items[itemindex];
  end;
End;

----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

beauty (beauty)	★☆☆☆☆	-
	普通会员

2003/9/12 23:53:12

8楼：

7楼你的思想真的是很好
在被点击的空格中显示combobox
真的很有数学头脑
我很欣赏你
很向和你交个朋友
我的qq:54727674
说自己是delphi爱好者就可以了
期待着你
----------------------------------------------
李建明

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/13 19:28:25

9楼：

怎么不表扬我，7楼的思路就是我说的那个：~（
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2003/9/13 19:45:49

10楼：

呵你说得少,
别人帖着多。
----------------------------------------------

充电..........

信息

登陆以后才能回复