Question

delphi中的一段代码求解释啊。大牛们、

procedure TMainCommonErpFrm.ImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
(Sender as TImage).Left := (Sender as TImage).Left + 3;
(Sender as TImage).Top := (Sender as TImage).Top + 3;
end;

Answer 1

当鼠标在图片中点下时，将图片向右移动3，向下移动3

(Sender as TImage).Left := (Sender as TImage).Left + 3; //自己的左边距+3，等于向右移动3
(Sender as TImage).Top := (Sender as TImage).Top + 3; //自己的上边距+3，等于向下移动3