マウスカーソルの下にあるコンポーネントを識別するには、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クラスを持たない他のコントロールを見つけることができないように。

ただし、ウィンドウ以外のものも含め、すべてのVCLコントロールを返す同じ機能があります。FindDragTargetAllowDisabledそれが無効にコントロールを返したりしませんかどうかを制御 -

この機能は、それは追加の引数を持っているだけでFindVCLWindow

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

のように、Vcl.Controlsで宣言されています。

次のようにあなたの方法を書き換える必要があります - FindDragTarget（constの順位：TPoint; 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;