1214人阅读
Delphi（1）
&&& 最近写了一个小的局域网聊天的小程式，在模仿QQ的按Ctrl+Enter发送信息。
&&& 刚开始的写法是这样的：添加一个TMemo控件，名称是memoMessage，在它的onKeyDown事件中这样写：
procedure TfrmMain.memoMessageKeyDown(Sender: TO var Key: W
Shift: TShiftState);
if (ssCtrl in shift) then
if key = $D then
key := $0;
//发送信息的代码
&&& 发现在按Ctrl+Enter之后，可以发送信息，但是memoMessage会换行。百度以后发现有以下两个方法可以解决这个问题：
1.在它的onKeyPress中加入如下代码：
procedure TfrmMain.memoMessageKeyPress(Sender: TO var Key: Char);
if key = #10 then
//Ctrl+Enter对应的Key是#10，如果是#10，则把它置为#10.
key := #0;
2.加入一个TActionList控件，然后给它创建一个Action，将这个Action的快捷键ShortCut属性设置为Ctrl+Enter（下拉中没有这个快捷键，可以自己写进去），然后将代码写到Action的OnExecute事件中。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：11722次
排名：千里之外
(1)(1)(1)(1)(2)(2)高手们救命呀！！TRichEdit每添加一行(lines.add())，怎样显示最后一行，即会自动滚动，前提是不用鼠标点击。此问题搞得我头晕都没办法。
[问题点数：50分，结帖人bphantom]
高手们救命呀！！TRichEdit每添加一行(lines.add())，怎样显示最后一行，即会自动滚动，前提是不用鼠标点击。此问题搞得我头晕都没办法。
[问题点数：50分，结帖人bphantom]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2003年8月 Delphi大版内专家分月排行榜第三
2003年8月 Delphi大版内专家分月排行榜第三
2003年8月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。《Delphi程序设计及实验指导》电子教案--第4章_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
《Delphi程序设计及实验指导》电子教案--第4章
上传于||文档简介
&&《Delphi程序设计及实验指导》电子教案
大小：264.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢编程（30）
开发（54）
我需要一个不能复制、粘贴、剪切的输入框，以前用的是从TMemo继承出来的：TArcanMemo=class(TMemo)
procedure WndProc(var Message : TMessage);procedure TArcanMemo.WndProc(var Message: TMessage);begin
if (message.Msg =WM_RBUTTONUP) or (message.Msg =WM_RBUTTONDOWN) then
if (message.Msg =wm_copy) or (message.Msg =wm_cut) then
if message.Msg =wm_paste then
inherited WndProc(Message);能够满足我的要求，后来我又想增加点显示效果，就想改用TRichEdit，于是改成如下的代码：TArcanRichEdit=class(TRichEdit)
procedure WndProc(var Message : TMessage);procedure TArcanRichEdit.WndProc(var Message: TMessage);begin
if (message.Msg =WM_RBUTTONUP) or (message.Msg =WM_RBUTTONDOWN) then
if (message.Msg =wm_copy) or (message.Msg =wm_cut) then
if message.Msg =wm_paste then
inherited WndProc(Message);这时候我发现，在这个文本框中，可以进行复制、粘贴等操作。为什么呢？为什么TMemo可以TRichedit不可以？这个问题我发在了大富翁，好几个人回复了，不过都没有很好的解决这个问题。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：472494次
积分：6594
积分：6594
排名：第2500名
原创：132篇
评论：750条
(2)(1)(1)(3)(4)(3)(7)(5)(22)(50)(23)(12)
