Delphi 获取当前鼠标下的控件内容
2021-07-01 01:10
阅读：657
Delphi 获取当前鼠标下的控件内容
主要函数：
GetCursorPos；//获取鼠标的位置
WindowFromPoint；//获取制定point下的handle
GetClassName；//获取类的名字
function TForm1.GetEditText: string;
var
Point: TPoint;
Name: array[0..255] of Char;
Buffer: array[0..1023] of Char;
AHandle: THandle;
begin
//取得鼠标位置
GetCursorPos(Point);
//取得当前窗口句柄
AHandle := WindowFromPoint(Point);
GetClassName(AHandle, Name, Length(Name));
if AHandle = Self.Handle then
Exit;
SendMessage(AHandle, WM_GETTEXT, 1023, Integer(@Buffer));
Caption := StrPas(Name);
Result := StrPas(Buffer);
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
mmo1.Lines.Text := GetEditText;
end;
https://blog.csdn.net/lwstar23133/article/details/6773883
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Delphi 获取当前鼠标下的控件内容
文章链接：http://soscw.com/index.php/essay/100101.html
文章标题：Delphi 获取当前鼠标下的控件内容
文章链接：http://soscw.com/index.php/essay/100101.html
评论
亲，登录后才可以留言！