图片移动问题???

>>> 此贴的回复 >> type TImage = class(ExtCtrls.TImage) private procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; end;

procedure TImage.CMMouseEnter(var Message: TMessage); begin left:= 9; end;

procedure TImage.CMMouseLeave(var Message: TMessage); begin left:= 8; end;