名前
題名
▼ Mr.XRAYさん > > > XPos と YPos から TWinControl はコントロールを判定できまからね． > > ウィンドウハンドルを持つコントロール(TWinControl)だけですと， > こんな関数でしょうか． > > FindVCLWindow > http://docwiki.embarcadero.com/Libraries/ja/Vcl.Controls.FindVCLWindow > > WindowFromPoin と　FindControl の組み合わせ > http://msdn.microsoft.com/ja-jp/library/cc364874.aspx > http://docwiki.embarcadero.com/Libraries/ja/Vcl.Controls.FindControl > > TGraphicControl だと， > フォーム(Self)に直接乗っているTControlの場合 > > GetCursorPos(CurPos); > Windows.ScreenToClient(Handle, CurPos); > > for i := 0 to Self.ControlCount - 1 do begin > AControl := Controls[i]; > ARect := AControl.BoundsRect; > if PtInRect(ARect, CurPos) then begin > // > break; > end; > end; > > な感じで検索するしかないような気がします． > 更に高級な技 (^^; > [06_マウスカーソル下のオブジェクトの情報] > http://mrxray.on.coocan.jp/Delphi/plSamples/678_IAccessibleInterface.htm#06 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link