[Fakov]

Помогите пожалуйста, очень давно парюсь над этой проблемой, никто помочь не может((! Есть компонент ShellListView. В нем отображаются все файлы естессно. И есть компонент TImage. НУжно сделать так чтобы из ShellListView можно было перетащить графический файйл в TImage и он открылся. Дайте пожалуйста коды обработчиков событий, у меня ниче не выходит((

Вот как я делал:

Код:

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

[pesi]

Код:

procedure TForm1.ShellListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbLeft) and (ssAlt in Shift) then
    ShellListView1.BeginDrag(True);
end;

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if ExtractFileExt(ShellListView1.SelectedFolder.PathName)='.bmp' then
 Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TShellListView then
    Accept := True
  else
    Accept := False;
end;