D7怎么让memo带行号？

就像HTML代码编辑器，每行左边有数字显示行号如果能像D7一样单击每行最左边可以加标记（断点）就更好了

解决方案 »

  1.   

    定义变量iLine:Integer;     {使用em_LineFromChar消息} 
    iLine:=Memo1.Perform(em_LineFromChar,$FFFF,0);   {第一行为0} 
    messageDlg( '行号： '+IntToStr(iLine),mtInformation,[mbOK],0); 
      

  2.   

    　var
    　　CurrentLine:Integer;
    　　begin
    　　CurrentLine:=Editor Perform(em_ LineFromChar,SFFFF,0);
    　　Application MessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
    　　end;
      

  3.   

    有很多第三方控件的Memo都可以实现 ，如advmemohttp://www.tmssoftware.com/site/advmemo.asp
      

  4.   

    1楼2楼的理解错了，我要的是这种效果
    谢谢3楼的，可是，advmemo右键菜单是英文的，用户可能看不懂，怎么办？
      

  5.   

    右键菜单是搞定了，但是AdvMemo下面的copyright怎么去掉？
      

  6.   

    copyright 的问题应该是没有注册的AdvMemo吧。
      

  7.   

    三方控件要註冊，要麼用RichEdit 的WM_PAINT消息或重畫memo...