delphi中获取memo鼠标所在位置的行和列（通过EM_GETRECT消息取得Rect后，自己算一下）

也是看别人写的，但是不容易找到，就转发一篇delphi版本的

function GetLine(X, Y: integer): TPoint;

var

  OldFont : HFont;

  Hand : THandle;

  TM : TTextMetric;

  Rect : TRect;

begin

  Hand := GetDC(mmotest.Handle);

  try

    OldFont := SelectObject(Hand, mmotest.Font.Handle);

    try

      GetTextMetrics(Hand, TM);

      mmotest.Perform(EM_GETRECT, 0, longint(@Rect));

      Result.Y:= GetScrollPos( mmotest.Handle, SB_VERT ) +

                 (Y - Rect.Top) div (TM.tmHeight);

      Result.X:= (X - Rect.Left) div (TM.tmHeight);

      

      ShowMessage( IntToStr( Result.X ) + ',' + IntToStr( Result.Y ) );

    finally

      SelectObject(Hand, OldFont);

    end;

  finally

    ReleaseDC(mmotest.Handle, Hand);

  end;

end;

procedure TF_Main.mmotestMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  GetLine( x, y );

end;