delphi 中的一个简单的问题！！

Question

memo1.CaretPos.X //列
memo1.CaretPos.y //行

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
   linenum:longint;
   charsbeforeline:longint;
begin
   linenum:=sendmessage(memo1.Handle,em_linefromchar,memo1.SelStart,0); //em_linefromchar函数的使用
   charsbeforeline:=sendmessage(memo1.Handle,em_lineindex,linenum,0);   //em_lineindex函数的使用
   form1.Label1.Caption:='Line'+inttostr(linenum+1);//显示行数；
   form1.Label2.Caption:='Position'+inttostr((memo1.SelStart-charsbeforeline)+1);//显示列数end;end.