AI摘要

这段代码是Delphi语言编写的,用于处理图片在鼠标移动事件中的显示切换。代码中定义了一个名为btnSendPhotoMouseMove的过程,当鼠标移动到图片控件上时,会根据图片控件的Tag值判断是否需要加载新的图片,并更新Tag值。如果Tag值除以2余数不等于1,则加载a5_03.jpg图片并设置Tag值为5;如果Tag值除以2余数等于0,则加载b_03_2.jpg图片并设置Tag值为0。
这段代码是Delphi语言编写的,用于处理图片在鼠标移动事件中的显示切换。代

procedure TMainForm.btnSendPhotoMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if imgSelectPhotot2.Tag mod 2 <> 1 then
  begin
    imgSelectPhotot2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Ico\SoftImage\a5_03.jpg');
    imgSelectPhotot2.Tag := 5;
  end;

  if TImage(Sender).Tag mod 2 = 0 then exit;
  TImage(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Ico\SoftImage\b_03_2.jpg');
  TImage(Sender).Tag := 0;
end;

※相关文章推荐※



最后修改:2009 年 08 月 16 日
点赞的人是最酷的