delphiÖÐÔõÑùÅжÏÎı¾¿òÖÐÊäÈëµÄÊÇË«ÒýºÅprocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#34 then showmessage('ÊäÈëµÄÊÇË«ÒýºÅ'); end; if key = '"' then ÕâÑù¾ÍÐÐ
¶Ô ÄÇÈç¹ûÊÇÕâÑùµÄÔõôÅжÏÄØ¡£¡°ºº×ÖÄÚÈÝ¡±Ò²¾ÍÊÇ˵ÅжÏÎı¾¿òµÄÊÇʲôÄÚÈÝ£¬È»ºóÕýÈ·¾Í¿ÉÒÔ¼ÌÐøÏÂÒ»²½µÄ²Ù×÷¡£¸ÃÈçºÎд£¬Ð»Ð» if Edit1.Text = '"ÄãºÃ"' then ShowMessage('ÄãÒ²ºÃ£¡') else ShowMessage('£¿')