ΪºÎÔÚDELPHI ÖÐ,KeydownÎÞ·¨µÃµ½F1...¹¦Äܼüʼþ

procedure  TForm1.FormCreate(Sender:  TObject); 
  begin 
      KeyPreview  :=  True;  //¿ÉÒÔÖ±½ÓÉèÖà
  end; 
   
  procedure  TForm1.FormKeyDown(Sender:  TObject;  var  Key:  Word; 
      Shift:  TShiftState); 
  begin 
      case  Key  of 
          #111:  {  F1Òª´¦ÀíµÄ´úÂë  }; 
          #112:  {  F2Òª´¦ÀíµÄ´úÂë  }; 
          VK_F3:  {  F3Òª´¦ÀíµÄ´úÂë  }; 
      end; 
  end; 
 

°´ÉÏÃæµÄд·¨,°´F1...µÈ¹¦ÄܼüûÓÐʲô·´Ó³,

---

VK_F1 = 112; ²»ÊÇ111

---

Ö±½ÓʹÓà VK_F1,VK_F2 ²»ÊǸüÖ±¹ÛÒ׶®Âð?

---

ÒýÓÃ

VK_F1 = 112; ²»ÊÇ111

ÕýÈ·...

---

ÒÔÉÏÎÞÕý½â¡£×Ô¼º¸ã¶¨¡£