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;

在鼠标光标下识别组件不适用于TImage Control

1 个答案: