社区
C++ Builder
帖子详情
如何获知TMemo元件中目前光标处在哪一行?
gloom
2001-07-20 11:23:21
也就是想获得目前光标所在行的串的Index.
Memo->Lines->Strings[Index]中的Index为目前所在行,而Strings[Index]为所在行的内容。
...全文
104
4
打赏
收藏
如何获知TMemo元件中目前光标处在哪一行?
也就是想获得目前光标所在行的串的Index. Memo->Lines->Strings[Index]中的Index为目前所在行,而Strings[Index]为所在行的内容。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
傻乐tao
2001-07-20
打赏
举报
回复
还是班竹老大厉害!
Wingsun
2001-07-20
打赏
举报
回复
还有一个GetCaretPos的方法,返回值为TPoint,y就是行数。
qiwei
2001-07-20
打赏
举报
回复
当前行与列以下分别用X与Y表示:
X = Memo1->CaretPos.x;
Y = Memo1->CraetPos.y;
所以可以用:Memo1->Lines->Strings[Memo1->CaretPos.y];
Ok!
gloom
2001-07-20
打赏
举报
回复
谢了,前两位有分。
TMemo
逐行读取数据Demo
Delphi开发过程
中
,往往需要在
TMemo
中
逐行读取数据,本实例是回答网友问题的源码。上传方便实施
TMemo
逐行读取数据的同行下载参考。
Delphi
TMemo
字符串的查找完全实现
这是早上传的发现有问题 不能在Delphi Xe5
中
运行 但能在Delphi7
中
运行 我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi
TMemo
字符串的查找完全实现 已经完全的解决Delphi
TMemo
的查找对话框 和 替换对话框 功能 的所有功能 查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif
Delphi 7.0 得到Memo
中
的可见行数.rar
Delphi 7.0 获取Memo控件
中
字符的可见行数,没讲 时在Memo控件
中
随便粘贴入一些字符,单击窗口
中
的“检测可见行数”按钮,即可得到该文本框控件
中
字符的行数,将这一系列执行命令集成在delphi的按钮监听事件
中
,编写如下代码即可: function LinesVisible(Memo:
TMemo
): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand := GetDC(Memo.Handle); try GetTextMetrics(Hand, TM); Memo.Perform(EM_GETRECT, 0, longint(@Rect)); tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; finally ReleaseDC(Memo.Handle, Hand); end; Result := tempint; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; end; 程序运行效果请参见截图所示,完整源码请下载。
Delphi开发技巧之-VCL
ListView 排序 Stringgrid内使用回车键代替Tab键 TListBox内显示分栏 TListBox每
一行
显示交互的颜色
TMemo
内
光标
位置根据鼠标移动
TMemo
自动卷动 TRichEdit卷到特定位置 TRxRichEdit内插入图像 TStringGrid
中
插入、删除
一行
TStringGrid保存和装载 TTreeview控件显示粗体节点 TWebBrowser
中
调用“查找”对话框 为Listview栏添加双击事件 为工具栏的TToolButton设置新的索引 仅通过Classname创建和管理任意窗体 从RichEdit取Rtf格式 从TListBox
中
拖放项目到TRichEdit 从一个TRichedit复制格式Rtf文本到其它 使用CustomSort方法排序TListView 使用DBGrid字段队列同步列标题队列 使用Interfaces和TInterfaceList 使用TRichEdit存储大于64K数据 使用代码移动StringGrid的行和列 使用圆形角显示控件 使用类名显示窗体 保存 装载TCheckListbox值 保存和装载TListView 保存和装载TTreeView 允许TDBGrid栏调整大小但防止移动 克隆控件 克隆窗体 列出控件的所有属性和事件 创建可编辑ListBox 删除Listbox的所有选定项目 删除stringlist
中
重复项目 删除TStringGrid
中
的列 动画窗体 取ComboBox List句柄 取TListview内所有选定项目 取TShellListView
中
选定文件的路径 取列举值的名称 在combobox
中
实现autocomplete 在DBGrid
中
使用回车键改变到下一个段 在listbox内列出所有目录、文件和驱动器 在Listbox内显示水平滚动条 在memo
中
实现UNDO 在RichEdit内搜索文本并选择它 在StringGrid内使用Combobox作为编辑器 在StringGrid单元
中
画不同颜色 在TComboBox
中
显示栏 在TComboBox内绘制位图 在TDateTimePicker内显示星期几 在TFileListBox内显示多列 在TListBox
中
创建彩色项目 在TListBox内拖拽 在TListbox内绘制位图 在TListview内执行二进制搜索 在TListView内拖拽多个项目 在TListView列
中
创建进度条 在
TMemo
内查看和编辑MS-DOS文本 在TPageControl拖拽Tabs 在TPrintDialog上放置定制控件 在TRichEdit内使用上标和下标 在TRichEdit内使用超链接 在TRichEdit内文本使用不同的下划线样式 在TRichedit内设置段落行距 在TStringGrid内删除
一行
在TStringGrid实现OnColumnClick事件 在自己的控件显示信息 复制Listbox项目到剪贴板 失效TTreeview的tooltips 定制TDateTimePicker的格式 居
中
控件 屏蔽在EditBox内按回车键的都都声 强制在TEdit内输入 排序StringGrid 搜索和替换RichEdit
中
文本 搜索和选定TListBox的项目 改变TDBGrid的DefaultRowHeight 改变TRichEdit内选定文本的背景颜色 改变TStringGrid内选定单元的颜色 改变标准对话框 改变状态栏字体样式 改变窗体上所有控件的属性 改变进度条颜色 根据StringGrid列内容自动调整大小 根据列排序TStringGrid 检查Stringgrid
中
指定单元示范选定 检查
TMemo
能否取消操作 检查TreeView是否完全展开或折叠 检查TStringGrid是否有滚动条 添加接口对象到list 清空StringGrid的所有单元 移动listbox项目 移动TListView项目 移动TRichEdit内
光标
到指定位置 聚焦TDBGrid某些单元 自动打开TDateTimePicker 自定义Memo边界 获取TRichEdit
中
鼠标指针下面的字 访问TRadioGroup的控件 调整TComboBox下拉列表的宽度 转换Editbox的首字符为大写 转换TEdit
中
每个词的首字母为大写 输出TStringGrid到TListView 运行时创建TButtons队列 运行时创建控件 运行时创建菜单项 运行时替换控件 返回TTreeView内字符串路径 防止在TEdit内剪贴、复制、粘贴 防止用户调整TListView栏大小 限制TEdit的输入 隐藏TListView滚动条 隐藏最小化MDI子窗口 颜色Combo Box 验证TEdit
中
输入的是数字
Delphi开发技巧之-文件操作
Windows
中
的通用应用程序的类名 使用API函数复制移动文件 使用API访问ListBox项 使用GetTempFileName创建一个唯一的临时文件 使用INI文件 使用INI文件保存、装载字体信息 使用TFileStream 使用TStream保存字符串 使用TTreeview显示目录 使窗体的关闭按钮失效 修改文本文件 允许在资源管理器
中
拖放文件 减小EXE文件大小 列举驱动器 列出目录下的子目录 创建快捷方式 创建目录 删除文件到回收站 判断文件夹是否共享 剪贴板存放多个控件流 加载CDROM图标 压缩和解压流 取MP3的ID3-Tag 取Program files目录 取可执行文件类型 取和文件类型关联的应用程序 取当前程序所在目录 取指定文件的版本信息 取文件修改日期 取文件日期 取文件最后访问日期 取文件版本号 取文件的所有者 取目录大小 取磁盘可用空间和总空间 取设置当前目录 取设置文件夹的日期 向Exe文件
中
添加数据 向文件写添加文本 在
TMemo
光标
位置插入一个文件 在Windows开始后自动运行一个程序 在应用程序
中
添加Exe文件并且执行 在文件
中
搜索字符串 在文件
中
搜索指定文本 在文本文件
中
搜索文本 将剪贴板复制到流和恢复 将文本文件赋值给一个字符串 将资源文件
中
Rft文本装载到TRichEdit 将长文件名转换成短文件名 彻底删除文件 打开资源管理器且显示指定文件夹 捕获DOS应用程序的输出 改变TPageControls的颜色 改名、移动、删除文件或目录 显示‘打开方式’对话框 显示文件属性对话框 显示目录选择对话框 显示目录选择对话框并指定初始目录 替换正运行的DLL 检查文件是否ASCII格式 检查文件是否在本地驱动器 检查文件是否已打开 检查文件是否正在使用 检查目录是否存在 比较两个文件是否相同 添加去掉路径名后的符号 添加文件到文档菜单 清空文档 获取文件类型 获得快捷方式信息 获得文件大小 计算文件的校验和 设置文件日期 读 table-textfile 到 StringGrid 读取二进制文件使用ASCII显示 转换OEM到ANSI 转换短文件名为长文件名 运行一个程序或打开一个关联文件 返回UNC路径 通过CRC-32验证文件
C++ Builder
13,822
社区成员
102,680
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章