Получить компонент по его координатам.

[Alexandr17]

Есть событие

Procedure TForm1._ClickBitBtnId(Sender: TObject);
begin
  label1.Visible:=True;
  ListBox1.Visible:=True;
  BtnIds:=(Sender As TBitBtn);
  ImgIds:=
end;

где
BtnIds - ссылка на кнопку
ImgIds - ссылка на TImage
Нужо ссылке присвоить компонент из событие кнопки. Имя компонента неизвестно но известны его ккординаты
Координаты image это
Left=(Sender As TBitBtn).left
Top=(Sender As TBitBtn).top+(Sender As TBitBtn).height
Помогите пожалуйста

[Человек_Борща]

GetWindowFromPoint это от WinAPI, и FindVCLWindow , ControlAtPos от VCL. Гуглим сами

[Alexandr17]

ну ControlAtPos не подайдет так как используется для проерки а мне неизвестно имя компонента.только координаты

[Пепел Феникса]

Сообщение от Alexandr17

ну ControlAtPos не подайдет так как используется для проерки а мне неизвестно имя компонента.только координаты

компонент вашей формы?

[Alexandr17]

да. Компонент на моей форме давот собственно

Procedure TForm1._ClickBitBtnId(Sender: TObject);
Var PosImg:TPoint;
begin
  label1.Visible:=True;
  ListBox1.Visible:=True;
  BtnIds:=(Sender As TBitBtn);
  PosImg.X:=(Sender As TBitBtn).Left;
  PosImg.Y:=(Sender As TBitBtn).Top+(Sender As TBitBtn).Height;
  ImgIds:=FindVCLWindow
end;

осталось дописать и должно работать

ImgIds:=(FindVCLWindow(posImg) as TImage);
[Error] UNrk.pas(200): Incompatible types: 'TImage' and 'TWinControl'

[Stilet]

Alexandr17

Ты не говорил что ловишь TImage.

Call FindVCLWindow to locate the windowed control

[Alexandr17]

а как сказать.

[Stilet]

Теперь уже никак )
Image таким образом не ловится.
По-моему он вообще не ловится, ибо является чисто канвой. Отловить можно хендл окна, на котором он отрисован, и работать с Image по относительным этого окна координатам. Координаты видимо придется забивать константно.
Бери короче SpyXX (Spy++) и им проверяй будет ли твоя картинка ловиться.