鼠标光标下的识别组件不适用于 TImage 控件

Question

我正在使用以下过程来识别 Delphi XE3 中鼠标下的控件。对于vcl.contols，一切正常。但是，当鼠标悬停在 TImage 上时，不会返回控件名称。

procedure TMainForm.ApplicationEvents1Idle(Sender: TObject; var Done: oolean);    
var
  ctrl : TWinControl;
begin    
  ctrl := FindVCLWindow(Mouse.CursorPos);     
  if ctrl <> nil then begin    
    Label2.caption := ctrl.Name;    
    //do something if mouse is over TLabeledEdit    
    if ctrl is TLabeledEdit the begin    
      Caption := TLabeledEdit(ctrl).Text;    
    end;
  end;
end;

有没有一种简单的方法可以访问 TImage 的名称 - 我错过了一些非常简单的东西吗？

Answer 1

FindVCLWindow 查找 TWinControl 的后代。由于TImage 不是窗口控件并且它不是从TWinControl 继承的，所以FindVCLWindow 将无法找到它。就像它无法在其祖先中找到任何其他没有 TWinControl 类的控件一样。

但是，有一个类似的函数FindDragTarget 将返回任何 VCL 控件，包括非窗口控件。

这个函数也在Vcl.Controls中声明，就像FindVCLWindow一样

function FindDragTarget(const Pos: TPoint; AllowDisabled: Boolean): TControl;

它有额外的参数 - AllowDisabled 控制它是否会返回禁用的控件。

你应该重写你的方法如下 - 注意ctrl必须被重新声明为TControl

procedure TMainForm.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var
  ctrl : TControl;
begin
  ctrl := FindDragTarget(Mouse.CursorPos, true);
  if ctrl <> nil then
    begin
      Label2.caption := ctrl.Name;
      ...
    end;
end;