Question

用delphi 做文本编辑器的时候 ，则怎么在状态栏显示文本的 行和列 ？

Answer 1

procedure TForm1.memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Lpos,Cpos,Linelength:integer;
begin
Lpos:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0);
Cpos:=SendMessage(Memo1.Handle,EM_LineIndex,Lpos,0);
LineLength:=SendMessage(Memo1.Handle,EM_LineLength,Cpos,0);
Cpos:=Memo1.SelStart-CPos;
StatusBar1.Panels[0].Text :='当前鼠标位于第'+IntToStr(lpos+1)+'行,第 '+IntToStr(cpos)+'列';
end;

Answer 2

你是说Memo？？
他有个Lines的属性，其实就是Tstrings

只要TString支持的方法和操作都可以使用。

当前光标位置似乎没办法

你可以考虑使用　Richedit　那东西可以控制很多东西，当然包括行列

追问

谢谢
那用richedit具体如何实现呢？
我菜鸟一个 最近刚学

追答

具体里面的属性方法有的，看看就明白，没难度