我在FORM上方了一个IMAGE,然后在此IMAGE上动态生成好多的图标,我现在想移动IMAGE时,他上面的图标也跟着动。

解决方案 »

  1.   

    procedure Tdz.Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

    myimage:=Timage.Create(self);
        myimage.Left:=x;           {创建位置}
        myimage.Top:=y;
        inc(counter5);
        myimage.picture.LoadFromFile('e:\pic\fanshe.bmp');
        myimage.Name:='fs'+inttostr(counter5);   {记录一个组件}         myimage.ShowHint:=TRUE;
        myimage.hint:=inttostr(counter5)+'ss;
        myimage.parent:=self;如何使X,Y是相对与地图的坐标。