圖片移動問題???

>>> 此貼的回復 >> 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;