// Enable dropping of a file onto a TImageEnView (from Windows Explorer, for example)
procedure TForm1.FormCreate(Sender: TObject); begin // These can also be set via published properties... IEFileDragDrop1.DropControl := ImageEnView1; IEFileDragDrop1.OnFileDrop := IEFileDragDrop1FileDrop;
// Allow image to be dragged from a TImageEnView (to Windows Explorer, for example) procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var ssFiles: TStringList; begin if GetKeyState(VK_LBUTTON) < 0 then // Mouse left button is down begin ssFiles := TStringList.Create; ssFiles.Text := ImageEnView1.IO.Params.FileName; IEFileDragDrop1.InitiateDragging( ssFiles, [iedaCopy] ); FreeAndNil(ssFiles); end; end;
procedure TForm1.DropFiles(Sender: TObject; ssFiles: TStrings; dwEffect: Integer); var i: Integer; aFileName: string; begin // Add the dropped image files to ImageEnMView for i := 0 to ssFiles.Count - 1 do begin aFileName := Trim(ssFiles[i]); ImageEnMView1.InsertImage(i, aFileName); ImageEnMView1.ImageBottomText[i] := ExtractFileName(aFileName); end; ImageEnMView1.SelectedImage := 0; end;