delphi中获取memo鼠标所在位置的行和列

最新推荐文章于 2024-11-19 23:19:47 发布

转载最新推荐文章于 2024-11-19 23:19:47 发布 · 4.3k 阅读

收录于

Delphi编程

当前文章被收录于：

Delphi编程

26 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个Delphi函数GetLine，该函数用于确定鼠标在文本编辑器中的具体字符位置。通过使用Windows API函数和编辑器属性，此函数能够计算出鼠标指针所在的行和列。

也是看别人写的，但是不容易找到，就转发一篇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;