var
i:integer;
begin
for i:=0 to 300 do
SendMessage(Form1.Memo1.Handle,WM_SETTEXT,0,integer(pchar(inttostr(i))));
end;
结果就只在第一行的光标处不断覆盖i，请问用sendmessage()如何像memo.lines.add()一样，形成列表，别覆盖
-
等级
本版专家分：4316结帖率 100% -
结果就只在第一行的光标处不断覆盖i，请问用sendmessage()如何像memo.lines.add()一样，形成列表，别覆盖展开阅读全文
-
等级
本版专家分：21 -
先WM_GETTEXT 后再WM_SETTEXT成不成
-
等级
本版专家分：74099勋章
-
- 进士 2008年 总版技术专家分年内排行榜第九
-
-
红花
2009年1月 C++ Builder大版内专家分月排行榜第一
2008年12月 Delphi大版内专家分月排行榜第一
2008年11月 Delphi大版内专家分月排行榜第一
2008年10月 Delphi大版内专家分月排行榜第一
2008年6月 Delphi大版内专家分月排行榜第一
2008年1月 Delphi大版内专家分月排行榜第一
2005年7月 C++ Builder大版内专家分月排行榜第一
-
-
黄花
2009年1月 Delphi大版内专家分月排行榜第二
2008年12月 C++ Builder大版内专家分月排行榜第二
2008年7月 Delphi大版内专家分月排行榜第二
2005年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2009年5月 Delphi大版内专家分月排行榜第三
2009年4月 Delphi大版内专家分月排行榜第三
2009年3月 Delphi大版内专家分月排行榜第三
2009年2月 C++ Builder大版内专家分月排行榜第三
2009年2月 Delphi大版内专家分月排行榜第三
2008年11月 C++ Builder大版内专家分月排行榜第三
2008年8月 C++ Builder大版内专家分月排行榜第三
2008年7月 C++ Builder大版内专家分月排行榜第三
2008年6月 C++ Builder大版内专家分月排行榜第三
2008年5月 Delphi大版内专家分月排行榜第三
2005年8月 C++ Builder大版内专家分月排行榜第三
-
-
参考:
procedure TMemoStrings.Insert(Index: Integer; const S: string);
var
SelStart, LineLen: Integer;
Line: string;
begin
if Index >= 0 then
begin
SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);
if SelStart >= 0 then Line := S + #13#10 else
begin
SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index - 1, 0);
if SelStart < 0 then Exit;
LineLen := SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0);
if LineLen = 0 then Exit;
Inc(SelStart, LineLen);
Line := #13#10 + s;
end;
SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelStart);
SendMessage(Memo.Handle, EM_REPLACESEL, 0, Longint(PChar(Line)));
end;
end;
-
等级
本版专家分：4316
-
啊，大哥，那么复杂呀，请问有没有简单一点的
-
等级
本版专家分：74099勋章
-
- 进士 2008年 总版技术专家分年内排行榜第九
-
-
红花
2009年1月 C++ Builder大版内专家分月排行榜第一
2008年12月 Delphi大版内专家分月排行榜第一
2008年11月 Delphi大版内专家分月排行榜第一
2008年10月 Delphi大版内专家分月排行榜第一
2008年6月 Delphi大版内专家分月排行榜第一
2008年1月 Delphi大版内专家分月排行榜第一
2005年7月 C++ Builder大版内专家分月排行榜第一
-
-
黄花
2009年1月 Delphi大版内专家分月排行榜第二
2008年12月 C++ Builder大版内专家分月排行榜第二
2008年7月 Delphi大版内专家分月排行榜第二
2005年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2009年5月 Delphi大版内专家分月排行榜第三
2009年4月 Delphi大版内专家分月排行榜第三
2009年3月 Delphi大版内专家分月排行榜第三
2009年2月 C++ Builder大版内专家分月排行榜第三
2009年2月 Delphi大版内专家分月排行榜第三
2008年11月 C++ Builder大版内专家分月排行榜第三
2008年8月 C++ Builder大版内专家分月排行榜第三
2008年7月 C++ Builder大版内专家分月排行榜第三
2008年6月 C++ Builder大版内专家分月排行榜第三
2008年5月 Delphi大版内专家分月排行榜第三
2005年8月 C++ Builder大版内专家分月排行榜第三
-
-
如果你理解了,就会觉得很简单.
-
等级
本版专家分：463勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
用自定义消息也可以实现。
在那个Memo所在窗体里写一个接受自定义消息的方法，里面可以Memo1.lines.add(...);
然后在你的程序里发送自定义消息，同时把要发送的文字传过去。
不过僵哥的那个代码并不复杂啊。这要还觉得复杂，那真的就什么也不用写了。
-
等级
本版专家分：4316
-
我以为一句话能搞掂，看来只好如此
- DELPHI的MEMO组件
位于Standard选项卡上，它是对EDIT控件的扩展，可以对多行文本进行显示、输入 和编辑. Lines属性： 该属性实际上为TStrings类型的对象，用来存放Memo对象的文本 TStrings有一个缺省的属性Strings， 它的定义为...
- SendMessage操作另一个EXE，存在这，以后也许用得着。
unit Unit1;interfaceuses Windows, SysUtils, Classes, Controls, Forms, StdCtrls, IdTCPServer, IdContext, IdAntiFreeze, IdAntiFreezeBase, IdBaseComponent, IdComponent, IdCustomTCPServer,...
- SendMessage
LRESULT SendMessage( HWND hWnd, // handle of destination window UINT Msg, // message to send WPARAM wParam, // first message parameter LPARAM lParam // second message parameter );函数功
- Delphi线程同步(SendMessage)
Delphi线程同种的方法有很多种，除了常用的Synchronize方法，也可以使用SendMessage向主窗口发送消息，因为SendMessage是阻塞的，可以达到同步的效果。主线程可以直接定义消息类型的procedure接收消息，也可以重写...
- Perform()/SendMessage()
Perform() VCL的Perform()方法适用于所有的TControl派生对象。Perform()可以向任何一个窗件或控件发送消息，只需要知道窗体或控件的实例。Perform()需要传递3个参数：消息标识符，wParam和lParam。...
- Delphi小技巧杂记
//获取任务栏尺寸 procedure TForm1.Button1Click(Sender: TObject); var TaskList: HWnd; Bordered: TRect; begin TaskList := FindWindow(’Shell_TrayWnd’, nil); GetWindowRect(TaskList, Bordered);...
- delphi电子邮件收发编程讲解与实例
在delphi中TNMPop控件-------接收电子邮件,pop3 pop3协议自身命令 命令说明 USER向pop3服务器器传递...包括邮件头和邮件内容 TOP获取邮件头 DELE删除指定的邮件 NOOP空操作 QUIT退出主机对话 控件属性 1、AttachFil...
- Windows 消息机制浅析--Delphi
1.消息是指什么？ 消息系统对于一个win32程序来说十分重要，它是一个程序运行的动力源泉。一个消息，是系统定义的一个32位的值，他唯一的定义了一个事件，向 Windows发出一个通知，告诉应用程序某个事情发生了。...
- Delphi 7.0 彻底更换桌面壁纸及剪贴板监控程序范例.rar
Memo1.Lines.Add(Clipboard.asText) ; End Else if Clipboard.HasFormat(CF_BITMAP) Then Begin //处理剪贴板中图片内容 Bitmap := TBitmap.Create; try Bitmap.Assign(Clipboard); Image1.Canvas...
- 学习 Message(4): 通过 Application.OnMessage 或 TApplicationEvents 响应消息
通过 Application.OnMessage 响应消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ......
- DBGrid 各属性的设置
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。...以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网...
- DELPHI文本整理器
Memo.text := StringReplace(Memo.Lines.text, Memo.Lines[i], '', [rfReplaceAll]); ClearBlankSpace(Memo); end; // ------------------------------------------------------------------------------ // ...
- About “PostMessage” &"SendMessage
SendMessage消息发出后阻塞等消息函数处理完执行它的下一语句 ;也就是说，PostMessage发送完消息后立刻返回继续执行程序；SendMessage发送完消息后等待消息处理完以后,才能返回继续执行程序. 另外，Post...
- Windows消息机制的应用【Delphi版】
两类主要消息处理函数: 1)向自身分发消息，由自己的成员函数处理：Dispatch(var ...2)向指定的类投递消息: a)SendMessage 异步投递 b)PostMessage 同步投递 一.自定义消息号和消息结构 const WM_5001...
- TFont,TLogFont使用
TFont,TLogFont使用 代码 procedure RotateText(ACanvas:TCanvas);var LF: TLogFont; aFont: TFont;begin with ACanvas do begin Font.Name := 'Arial'; Font.Size := 18; aFont := TFont.Create; ...
- XE5 修复 安卓 输入法隐藏 后 无法退出的问题 3.1
(****************************************************)(* *)(* 编写：爱吃猪头肉 & Flying Wang *)(* 上面的版权声明请不要移除。 *)(* 2014-03-15 *)(* ...
- 有关Delphi控件开发讨论
本论总预算1000分, 想与此道高手结识, 有能者得之请勿发表不相干言论, 分数只会分给内容最精辟正确之人;... 相同意见, 只给第一个发表之人以下是可以回答的方向, 供参考1. VCL控件开发的几个主要基类TComponent、...
- delphi下实现控制其它窗体中的控件
用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的： 回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如windows操作系统，比如其他的程序等等之类的。...
- 一些常见的问题
只有在中间层的事务方式为：“必需/要求新建”时才会报这个错误，调试程序时可以临时把中间层的事务方式改为“支持”，但是记住这只是临时的处理方式，这种方式会引起使用主从表的数据集保存失败，例如用户管理里的...
- delphi下实现控制其它窗体中的控件[转]
首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决... 用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的：回调函数写出来不是自己的程序去调用的，反而是让其他的...
- Java图形界面开发—学生信息管理系统 完整源码
学生信息管理系统，使用Java开发。 1、登录界面可以进行登录操作。有俩种权限选择。分别跳转到不同的界面。 2、使用了事件监听、Java操作SQLserver数据库等知识。 3、图形化界面中使用了JTable等组件，将查询结果显示在表格中。 详见我的博客：http://blog.csdn.net/qq_25827845/article/details/50932501
- python爬虫20个案例
讲诉python爬虫的20个案例 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
- c++经典代码大全 清晰版
c++经典代码大全 适合C++新手看的经典代码！！！
- matlab等距线扫描多边形程序实现
matlab等距线扫描多边形程序实现,可以对指定的定点画出相应的多变形，在进行扫描
- 9套大气漂亮的html+css网站模板、网页设计源码
网页大气，美观，设计合理 1.html班级网页设计模板 2.html动漫网页设计模板 3.html个人网页设计模板 4.html化妆品网页设计模板 5.html咖啡网页设计模板 6.html旅游网页设计模板 7.html商城网页设计模板 8.html书店网页设计模板 9.html公司网页设计模板
- 2020数学建模B题及其数据
2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据
- Java Web酒店管理系统源码 +mysql 数据库
酒店管理系统分为前台和后台两个部分，其中后台供管理员管理系统之用，包括客房类型设置模块、客房设置模块以及操作员设置三个子模块，具体的功能模块如下。 客房类型设置模块：该模块用来管理酒店的所有客房类型，包括新增客房类型、编辑已有客房类型、删除客房类型等功能。 客房设置模块：该模块用来管理酒店的所有客房信息，包括新增客房、编辑已有客房、删除客房等功能。 操作员设置模块：该模块用来管理酒店的操作员信息，包括新增操作员、编辑已有操作员信息、删除操作信息等功能。 系统前台供酒店所有工作人员使用，包括入住登记模块、结账模块、预定模块、客户管理模块以及业务统计五个模块。具体的功能模块如下。 入住登记模块：该模块用来登记客户的入住信息，其中入住信息包括登记信息、客人信息以及费用信息三部分。 结账模块：该模块用来处理客户的退房信息，只需要知道客户所住的房间号码，就能进行退房结账。 预定模块：该模块用来处理客户的预定信息，除了可以新增预定信息外，还可以对已有的预定信息进行管理。 客户管理模块：该模块用来管理客户的登记信息，包括新增客户信息、编译已有客户信息、删除客户信息等功能。 业务统计模块：该模块用来统计酒店的客房出租率，并且已图形报表的形式来显示出租率信息。 本系统的开发工具具体如下。 系统开发平台：MyEclipse 6.5。 数据库管理系统软件：MySQL 5.0。 java开发包：JDK 5.0以上。 Web服务器：Tomcat 6.0。 本系统采用MVC架构模式开发，具体技术如下。 AJAX框架：使用ExtJS技术开发 显示层：使用JSP技术开发 数据访问层：使用DAO模式开发 持久层：使用Hibernate框架开发 首页访问地址 ：http://localhost:8080/JavaPrj_9/首页配置 页面 修改 打开web.xml 修改 即可
/WEB-INF/pages/userLogin.jsp
- Visio_2016
visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用
- 个人简历模板
优质简历模板，目前最前全的模板收藏，需要换工作的小伙伴们可以试试
- Android开发精典案例60个【源码】
60个Android开发精典案例，好东西 - 给大家分享60个Android开发的精典案例，包含任务监听、设备适配，游戏框架搭建，特效实现，多点触控，网络协议，游戏关卡设置等内容。特别是做游戏开发的朋友值得研究。喜欢就拿走吧！