本文整理自网络，侵删。
procedure TForm1.Memo1Click(Sender: TObject);
begin
Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);
end;
//用 API 实现
procedure TForm1.Memo1Click(Sender: TObject);
var
LineY,LineX: Integer;
begin
LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
LineX := SendMessage(Memo1.Handle,EM_LINEINDEX,LineY,0);
Text := '当前行：' + IntToStr(LineY) + '; ' + //0开始
'当前列：' + IntToStr(Memo1.SelStart - LineX) + '; ' + //0开始
'当前字符：' + IntToStr(Memo1.SelStart) + '. '; //包括#13#10
end; 相关阅读 >>
Delphi xe7中的运行时设置android应用程序屏幕方向
Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512
更多相关阅读请进入《Delphi》频道 >>
