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;

Last modification:August 16th, 2009 at 12:30 pm
如果觉得我的文章对你有用,请随意赞赏