我问一个问题

                            
我现在编一个小程序,目的是让一个键按下,一个键就不能用了.下面是代码:   
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   ComCtrls,   ToolWin;  
   
  type  
      TForm1   =   class(TForm)  
          ToolBar1:   TToolBar;  
          B1:   TToolButton;  
          ToolButton2:   TToolButton;  
          B2:   TToolButton;  
          procedure   B2Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.B2Click(Sender:   TObject);  
  begin  
            if   B2.Enabled   then  
                  B2.Enabled   :=   not   B1.Down  
  end;  
  end.  
  我不知道为什么,实现不了,请各位高手帮助  
 

查看回复