有用过imageen控件的吗

Question

这个控件，如何用鼠标脱动里面的图片

Answer 1

全局变量X1,Y1:integer;我的程序中是把ImageEnView放在了一个ScrollBox里面
procedure TFrmMain.ImageEnView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if Shift=[ssLeft] then
    begin
        X1:=X;
        Y1:=Y;
        onDrag:=true;
    end;
end;procedure TFrmMain.ImageEnView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    OnDrag:=false;
end;procedure TFrmMain.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    if OnDrag then
    begin
       ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position-X+X1;
       ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-Y+Y1;
    end;
end;

Answer 2

ImageEndbView里有这个MouseInteract属性把第一个和第二个设置成ture就可以了