最近写了一个小的局域网聊天的小程式,在模仿QQ的按Ctrl+Enter发送信息。
刚开始的写法是这样的:添加一个TMemo控件,名称是memoMessage,在它的onKeyDown事件中这样写:
发现在按Ctrl+Enter之后,可以发送信息,但是memoMessage会换行。百度以后发现有以下两个方法可以解决这个问题:
1.在它的onKeyPress中加入如下代码:
2.加入一个TActionList控件,然后给它创建一个Action,将这个Action的快捷键ShortCut属性设置为Ctrl+Enter(下拉中没有这个快捷键,可以自己写进去),然后将代码写到Action的OnExecute事件中。