Помогите пожалуйста, очень давно парюсь над этой проблемой, никто помочь не может((! Есть компонент ShellListView. В нем отображаются все файлы естессно. И есть компонент TImage. НУжно сделать так чтобы из ShellListView можно было перетащить графический файйл в TImage и он открылся. Дайте пожалуйста коды обработчиков событий, у меня ниче не выходит((
Вот как я делал:
Код:
procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;