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