memo扩展问题

Question

本帖最后由 gjliu2007 于 2010-01-07 15:15:32 编辑

Answer 1

截获滚动条消息。
好像TLISTBOX就没有滚动条，你可以参考它的源码，自己继承一个MEMO。

Answer 2

那你不如设定这个MEMO只显示几行，当超出几行的话就把最上面一行删了，这样不就可以了

Answer 3

append就行啦,不出现滚动条,把scrollbars设成ssNone就行了

Answer 4

你就算好memo中能放几行就行了，这个估计不是很准确只是个估计值var
  i,j:Integer;
begin
  j := Self.Canvas.TextHeight('M');
  i := Memo1.Height div j;
  ShowMessage('可容纳'+IntToStr(i)+'行');
end;

Answer 5

我看处理TListString比较好，删除首行新增一行。再读入Memo。

Answer 6

继承TListString是比较理想的而且方便
自己写个属性itemnumber
写个additem方法
通过判断来控制