TMemo的问题，急

[andypzh]

我想实现下面的效果，左边是用来显示行号，右边是TMemo,我在TMemo增加、复制、剪切或删除行时，左边能相应的增加或减少行号。请考虑wordwrap为true和false 2种不同的情况
左边可以用label或tmemo或其他控件

1 这是第一行
2 这是第二行
3 这是第三行
4 这是第四行
5 这是第五行
6 增加了第六行

[xiaoshi0]

可以放一个Readonly的TMemo在左边，然后根据右边的KeyPress函数中查看右边的行数，动态的添加上就可以了

[andypzh]

消息接收不到阿，能给个例子吗？3Q

[BlueDeepOcean]

类似于UltraEdit-32环境的风格，这种情况我以前做过，好麻烦的，而且利用Memo好像不比RichEdit简单。

[cczlp]

用TRichEdit。行号自己画上去。

[lanlanq]

老大们都在，学习学习

[andypzh]

右边只能用TMEMO,左边无所谓，现在行号能出来了，问题右边的TMEMO有垂直滚动条，(左边没有)，当右边滚动滚动条时，左边要动态的显示行号，这个问题怎么解决，麻烦各位大大了，3Q

[jaffy]

当右边滚动的时候,直接发消息给左边的控件,让左边的控件直接处理就可以了

[YJS050320001]

真的 用TMemo还是不太好实现
你可以去判断以下Memo里的Text值有多少个换行符
从而实现你说的那种功能

[truelove7283159]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewMemo1WndProc(TMessage &Message)
{
OldMemo1WndProc(Message);
if(Message.Msg==WM_VSCROLL || Message.Msg == WM_MOUSEWHEEL)
{
int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
if(iVPos1!=iVPos2)
{
Memo2->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}
}
void __fastcall TForm1::NewMemo2WndProc(TMessage &Message)
{
OldMemo2WndProc(Message);
if(Message.Msg==WM_VSCROLL || Message.Msg == WM_MOUSEWHEEL)
{
int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
if(iVPos1!=iVPos2)
{
Memo1->Perform(Message.Msg, Message.WParam, Message.LParam);
}
}

}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
AnsiString szText="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz";
for(int i=0; i<50; i++)
{
Memo1->Lines->Add(IntToStr(i)+" - "+szText);
Memo2->Lines->Add(IntToStr(i)+" - "+szText);
Application->ProcessMessages();
}


OldMemo1WndProc=Memo1->WindowProc;
Memo1->WindowProc=NewMemo1WndProc;
OldMemo2WndProc=Memo2->WindowProc;
Memo2->WindowProc=NewMemo2WndProc;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo2->Text = Memo1->Text;
}
//---------------------------------------------------------------------------

[andypzh]

要动态的显示行号的，光判断以下Memo里的Text值有多少个换行符不行吧。还有好的主意吗？