怎么让按回车就相当于点击了‘确定’按钮

如题！ 问题点数：20、回复次数：7Top

1 楼sailxia（小帆）回复于 2005-07-01 22:07:52 得分 10

將確定按鈕的'Default'的屬性設置為   trueTop

2 楼Kshape（C/C++初学者~~~~）回复于 2005-07-01 22:56:35 得分 2

在edit的keypress事件中:  
   
  if   key=#13   then  
  begin  
          YourButton.Click();  
  end;Top

3 楼zaza_bbface（我试着成熟一点~）回复于 2005-07-02 00:59:04 得分 2

楼上的都对Top

4 楼Maple119（枫叶）回复于 2005-07-02 02:05:44 得分 5

Sailxia   的做法是最实用的.  
  Kshape的做法是行不通的.一个窗口那么多编辑框之类的,不可能每个都去写代码或者指定事件.  
  如果使用的按钮没有dafault事件,可以在窗体的OnKeyPress事件里写入  
      if   Key   =   #13   then  
      begin  
          Key   =   #13;     //吃掉回车键  
          OKButton.Click;  
      end;  
  但前提是要将窗体的   KeyPreview   事件设置为   TRUE.Top

5 楼maming2003（關機.睡覺!）回复于 2005-07-02 13:22:21 得分 1

http://community.csdn.net/Expert/topic/4118/4118597.xml?temp=.1888086  
   
   
  if   key=#13   then  
  begin  
          YourButton.Click();  
  end;  
  Top

6 楼magicdu（野人）回复于 2005-07-02 13:31:45 得分 0

还可以用消息处理方法：  
   
  1。在FORM类中加入如下：   procedure   WMCHAR(var   Msg:   TMessage);   message   WM_CHAR;  
   
  2.在实现代码中如下：  
        procedure   WMCHAR(var   msg:   TMessage);  
        begin  
   
        end;Top

7 楼magicdu（野人）回复于 2005-07-02 13:32:34 得分 0

begin  
      SendMessage(Button.Handle,   WM_CHAR,   0,0);  
  end;Top

相关问题

• 事件
• click
• begin
• if key

• 帖主：lenall
• sailxia
• Kshape
• zaza_bbface
• Maple119
• maming2003

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载