ある矩形領域を座標を引数にして、そこに存在するコントロール(今回は複数あるTImage)を取得したいと思っています。
TPointでヘルプを探ったらFindControlに座標で引数ができそうだったのですが、実際コーディングしたら弾かれました。
どうすれば、座標からコントロールを取得できるんでしょうか?
よろしく御願いします。
Form1.ControlAtPos(100,100,True,True) で 100,100 の最前面にあるコントールを取得できますよ
FindDragTarget とかでもできると思いますよ。
//マウス下のコントロールを取得
var
compo: TComponent;
Pt: TPoint;
begin
GetCursorPos(Pt);
compo :=FindDragTarget(Pt, True);
end;
ありがとうございました。
KHE00221の方法で取得できました。
KHE00221さん、みんみんさんありがとうございました。
ツイート | ![]() |