stringgrid 如何动态调整列宽，及各各单元格如何用“回车”跳转(100分)

C

ch1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #1

1、stringgrid 如何动态调整列宽，第一列的宽度定义时为何不可设定宽度，第二列以后可设
2、单元格可用"TAb"跳转，如何用“回车“跳转
3、可以合并单元格吗？象excel一样
小弟初学，各位大侠不要见笑！

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #2

2.在form的keypress中这样定义：
if activecontrol.Name='StringGrid1'then
With StringGrid1 do
if key=#13 then if col<ColCount-1 then col:=Col+1 else col:=1;
并将form的keypreview设为true。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #3

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key= #13 then begin
if stringGrid1.col<stringGrid1.ColCount-1 then
stringGrid1.col := stringGrid1.col+1
else
begin
if stringGrid1.Row< stringGrid1.RowCount-1 then
stringGrid1.Row:=stringGrid1.Row+1
else
stringGrid1.Row:=1;
stringGrid1.col := 1
end;
end;
调整列宽：
stringGrid1.ColWidths:=100;

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #4

第一列可设置：
stringGrid1.ColWidths[0]:=100;

 

C

ch1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #5

第三个问题可有答案！

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #6

合并单元格是什么意思？如可合并，两个单元格的数据要如何处理？

 

C

ch1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #7

就是建如下表格
___________________________________________
| ddddddddddddd | |
____________________________________________
| aaaaa | bbbbbb | |
____________________________________________
可以吗？

 

C

chuguozhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #8

ch1234,不行

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #9

用excel吧

 

C

ch1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #10

问题结束，感谢hunterteam和linsb
分配linsb 60分
分配hunterteam 40分