Открытие изображения перетаскиванием в программу

[Q15]

Доброго времени суток. Проблема следующая:
На форме есть несколько компонентов TImage1, TImage2, TImage3 и т.д. Как реализовать открытие изображения в компонентах путем перетаскивания самой картинки с рабочего стола в программу. Причем каждая картинка должна открываться в том компоненте TImage, на который ее собственно перетащили. Могу реализовать подобную задачу с помощью DragandDrop, но чтоб именно картинка открывалась в том компоненте, на который ее перетащили, не получается.

[Alex11223]

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

Могу реализовать подобную задачу с помощью DragandDrop

как?

[Q15]

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

как?

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;


procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
CFileName: array [0 .. MAX_PATH] of char;
begin
  try
  If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
  // Получаем путь к файлу и открываем его
  begin
  if ExtractFileExt(CFileName) = '.jpg' then
  Form1.sImage1.Picture.LoadFromFile(CFileName);
  end;
  finally
  DragFinish(Msg.Drop); // отпустить файл
  end;
end;

Этот код открывает изображение в sImage1. Мне нужно, чтобы открывал в зависимости от того, на какой из компонентов я кидаю картинку (например, sImage3)

[Terran]

Доработайте код:

...
var
  Control: TControl;
...
  if ExtractFileExt(CFileName) = '.jpg' then
  begin
    Control := ControlAtPos(ScreenToClient(Mouse.CursorPos), false);
    if (Control is TsImage) then
      (Control as TsImage).Picture.LoadFromFile(CFileName);
  end;