图片按钮问题

Question

我想实现当鼠标经过图片时，变换图片的效果，直接在MouseMove里写
elf.Image1.Picture.LoadFromFile('d:\ico\13-2.bmp')
发现鼠标不停的闪
我想加一个判断
if (？？？？？) then
   self.Image1.Picture.LoadFromFile('d:\ico\13-2.bmp')
   else
    self.Image1.Picture.LoadFromFile('d:\ico\13-1.bmp');
这里要怎么写?

Answer 1

我给窗体加了一个MouseMove事件，self.Image1.Picture.LoadFromFile('d:\ico\13-1.bmp');
明显能看到图片在闪,怎么解决呀?

Answer 2

这样也不行呀，用JPG图片不能透背景了

Answer 3

设一个boolean的全局变量imageflag,formflag
  在Image1的MouseMove事件中：
   if imageflag then
   begin
     self.Image1.Picture.LoadFromFile('d:\ico\13-2.bmp')
     imageflag := False;
     formflag := True;
   end;
  在Form1的MouseMove事件中：
   if formflag then
   begin
     self.Image1.Picture.LoadFromFile('d:\ico\13-2.bmp')
     formflag:= False;
     imageflag := True;
   end;

Answer 4

不停的load？？
似乎要变量判断一下吧