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

Posted by obzor under Delphi, Заметки

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

Q15

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;

Случайные статьи

• Как сделать запрет на повторный запуск приложения?
• Электронный учебник с помощью компонентов Treeview и Webbrowser, реализация поиска
• Покрасить строки в ListView начиная со второй
• Проблема соединения в локал. сети
• ЭЦП Эль-Гамаля
• Программа для тренировки быстрого подсчета шансов в покере
• Вложенное регулярное выражение
• SHA1-хеширование, реализация на Delphi
• Электричество за пол цены
• Возможно ли использовать в Delphi шрифты не установленные в системе?