DataGrid控件.当可以对它进行修改时.如何限制某列可输入的字符数..

[fm_delphi]

1. 就好象文本框可以用MaxLength属性来限制文本框中可以输入字符个数的最大限度，在使DataGrid控件时，如何限制所有行中的某一列可以输入字符个数呢？

2. 如果一个窗体可以更改其大小，当窗体比较大时而窗体里面的内容又比较少时，会有很大一块的空白处，看起来十分的不协调，我想到的解决方法是：窗体里面的控件Width和height属性按窗口Width和height属性的百分比分配大小...但是总觉得很不好，不知道大家有什么这方面的技巧没...

[fm_delphi]

为什么没有回复呢？

不是吧？

[of123]

1
Dim Col As Integer
Dim limit As Integer

Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If Len(DataGrid1.Text) - Len(DataGrid1.SelText) >= limit Then KeyAscii = 0
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Col = DataGrid1.Col
DataGrid1.AllowUpdate = True
Select Case Col
Case 0
limit = 5 '第 1 列允许输入 5 个字符
Case 1
limit = 20 '第 2 列允许输入 5 个字符
Case Else
DataGrid1.AllowUpdate = False '其他列不允许更改
End Select
End Sub

2
我的方法是不允许调整窗体大小。

[fm_delphi]

还是没人回复，是不是在DataGrid里面就不能限制啊`~~？

[winehero]

'该控件不是有个BeforeColUpdate事件吗？在该事件中判断输入的值，从而决定是否切换到别的单元格（cancel为0表示允许切换，否则不切换）
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)

End Sub

[ilove8]

接分