如何限制dbmemo的行数及列数?
使用户在dbmemo的行数及列数不能超过一定的数值。
这不仅在要用户输入是加以限制，还要在copy时限制。
 
zl(2001-02-14 00:06)
我在窗体上放上一个DBMemo，不想让用户的输入超出DBMemo的宽和高，
如果是正常的输入，可以通过响应OnKeyPress来处理，可是当用户是
其它地方粘贴过来呢？
 
Jams(2001-02-14 00:25)
>>
 
zl(2001-02-14 00:30)
真的希望能有这样一们控件DBMemo 及Memo
它们有这样两个属性
maxLines 充许的最大行数
maxlen   每行最大字符数

不要告诉我哪个maxlength，它是限制全部字符数的，不能达到上面的要求。

哪位高手能写个吗？
 
hamsoft(2001-02-14 08:05)
自己编写
 
tinytao(2001-02-14 09:12)
看这个，Memo1.CaretPos.y 是行数
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if  Memo1.CaretPos.y>2 then Key:=#0;  //只让Memo1输入3行
end;

 
Seoul_BJ(2001-02-14 15:32)
procedure TForm1.DBMemo1Change(Sender: TObject);
begin

  while DBMemo1.Lines.Count>6 do
    dbmemo1.Lines.Delete(DBMemo1.Lines.Count-1);

end;