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;