在stringgrid中放了个combobox，怎么取combobox中的值到stringgrid的单元中？(50分)

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #1

我在stringgrid的selectcell事件中插入了combobox，
我相当光标从一个单元格移动到另一个单元格时，让原来的单元格的值
等于combobox的值！该怎么办？
还有怎么才能使stringgrid的第一行的text居中？

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #2

在线等待，请帮忙！

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #3

stringgrid.cells[stringgrid.col,stringgrid.row] := combobox.text;

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #4

关键是放在什么事件中？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #5

combobox 的 onclick 或 onexit
即 combobox 中的值有变化时.

 

娃

娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #6

stringGrid[selection.left,selection.left.top] := combobox1.text;
我的做法一般是放在combobox的keypress事件中，
if key=#13 then
stringGrid[selection.left,selection.left.top] := combobox1.text;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #7

也会用鼠标点选，Onexit 比较合适，但OnClick 可能也行。

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #8

可以了，放在onexit中可以的，谢谢了
第二个问题没人回答吗？
还有怎么才能使stringgrid的第一行的text居中？（是不是用textout,但我不知道该怎么
传参数）

 

G

gz85521734

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #9

onSelectCell
Combobox.text := StringGrid.cells[stringgrid.Col,Stringgrid.row];

onExit
StringGrid.cells[stringgrid.Col,Stringgrid.row] := Combobox.text;

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #10

第二个问题没人回答吗？
还有怎么才能使stringgrid的第一行的text居中？（是不是用textout,但我不知道该怎么
传参数）

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #11

把你第一个问题代码给我看看
来告诉你怎么居中，呵呵
我用StringGrid时，都让他们垂直居中的，不过代码我得回去考

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #12

第一个问题就是按上面的方法解决的
麻烦你给我贴出来怎么居中?

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #13

同行们帮帮忙！怎么是文本居中？
明天就要交货了！

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #14

procedure TfrmMain.StringGrid1DrawCell(Sender: TObject;
ACol,
ARow: Integer;
Rect: TRect;
State: TGridDrawState);
var s:string;
begin
s:=Trim(StringGrid1.Cells[ACol,Arow]);
StringGrid1.Canvas.FillRect(Rect);
//如果StringGrid1的DefaultDrawing属性为false,你要自己指定StringGrid1.Canvas的Font大小和颜色等信息
DrawText(StringGrid1.Canvas.Handle,PChar(s),Length(s),Rect,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #15

如果你只想某些单元居中，DefaultDrawing设置为true,判断ACol,ARow是否满足要求就行了
上面把所有Cell的内容都垂直居中了

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #16

谢谢了，分发了

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #17

发分，快

 

Q

qiusy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #18

多人接受答案了。