{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageEnMView.FillFromDirectory('F:\Photographs\Digital\A40');
end;

procedure TForm1.ImageEnMViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
    begin
      ImageEnMView.MouseInteract := [];
      ImageEnMView.IEBeginDrag (True, -1);
    end;
end;

procedure TForm1.ImageEnMViewImageSelect(Sender: TObject; idx: Integer);
begin
  CodeSite.Send ('OnImageSelect');
end;

end.

procedure TForm1.ImageEnMView1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  ImageEnMView1.IEEndDrag;
  ImageEnMView1.MouseInteract := [mmiSelect];
  ImageEnMView1.Paint;
end;