用DBGridEh吧! 在DBGridEh的相应Column的UpateData事件里面写一个判断: procedure TFCommandCodeA.DBGridEh8Columns4UpdateData(Sender: TObject; var Text: String; var Value: Variant; var UseText, Handled: Boolean); begin if Length(Text)>MaxLen then //MaxLen是你要的最大长度 begin showmessage('输入的字符太多了!!!') ; Abort; end; end;
在DBGridEh的相应Column的UpateData事件里面写一个判断:
procedure TFCommandCodeA.DBGridEh8Columns4UpdateData(Sender: TObject;
var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
if Length(Text)>MaxLen then //MaxLen是你要的最大长度
begin
showmessage('输入的字符太多了!!!') ;
Abort;
end;
end;