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

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;

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

• Pascal ABC
• Транслит русских букв
• Запись дисков в Delphi средствами IMAPI
• Генерация слов из listbox
• Добавить файл из пути в автозагрузку
• Найти наименьшее число
• Получить изображение с камеры
• В TMemoryStream используя LoadFromStream загрузить картинку с сайта
• Округление числа в C/C++
• Как достать временные файлы из Оперы