timage组件判断是否有图片小问题，高手进，在线等.....

timage组件判断是否有图片小问题，高手进，在线等..... VCL组件开发及应用

如题：  
      怎样判断image1里是否有片呀？？  
      if   image1.picture.graphic=nil   then  
  还是  
      if   image1.picture.graphic.empty   then  
   
  这两个好像有冲突，因为我要在一个按钮里先清空图片  
   
  清空图片按钮事件：  
  procedure   TFrm_ckxs.Myspeedbutton3Click(Sender:   TObject);  
  begin  
      Image_zp.Picture.Graphic:=nil;  
  end;  
   
  然后在另一个按钮事件里判断image1是否有图片，判断事件如下：  
  无论是if   image1.picture.graphic=nil   then  
  还是  
  if   image1.picture.graphic.empty   then  
  好像都不对呀？？请高手指点，在线等之  
 

有没有人呀

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
   
      images.Picture.Graphic   :=   nil  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      if   images.Picture.Graphic<>   nil   then  
          showmessage('接分');  
  end;  
   
  delphi7   下测试通过。

不对  
 

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
  if   image1.Picture.Graphic=nil   then  
    showmessage('mei   tu')  
    else  
    showmessage('you   tu   ');  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
  image1.Picture.Assign(nil);  
  end;

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
  if   image1.Picture.Graphic=nil   then  
    showmessage('mei   tu')  
    else  
    showmessage('you   tu   ');  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
  image1.Picture.Graphic:=nil;  
  //image1.Picture.Assign(nil);  
   
  end;  
   
  而且这么做也是可以的,不知道你为什么不行

if   image1.picture.graphic=nil   then  
    OK!!

结了

谢谢大家

--------------------------
盛大招聘.Net开发工程师

新闻：2008年开源软件10大胜利
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看