delphi 高亮选中MEMO某一行

http://www.delphitop.com/html/kongjian/2641.html选中第5行

//转到指定行并选中这行的文本
procedure SelectLine(Memo1: TMemo; ln: Integer);
begin
  Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - 1, 0);
  Memo1.SelLength := Length(Memo1.Lines[ln - 1]);
end;

http://www.52delphi.com/list.asp?ID=570

时间: 2024-08-01 02:20:19

delphi 高亮选中MEMO某一行的相关文章

PagerSlidingTabStrip 高亮选中标题

1.选中标题后,高亮标题@Override public void onPageSelected(int position) { setSelectTextColor(position); if (delegatePageListener != null) { delegatePageListener.onPageSelected(position); } } private void setSelectTextColor(int position) { for (int i = 0; i <

问题:CListCtrl如何高亮选中一行 http://zhidao.baidu.com/question/100664911.html 扩展:单行、双行及完成状态的字体等等。。。

http://zhidao.baidu.com/link?url=BKp05mfOdKbEBh21svQelpVhYjzDkIpYUZay8_3ZLSndTQn5kK0eTwQG8jBvYnwh8USFHoMPmozWw5odO2LN__ void CSendCommandDlg::OnNMCustomdrawList2(NMHDR *pNMHDR, LRESULT *pResult){ NMLVCUSTOMDRAW* lplvcd = (NMLVCUSTOMDRAW*)(pNMHDR); in

jquery单选框 复选框表格高亮 选中

单选框: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head&g

网页中高亮选中的关键字

<!--选中页面中的关键字后 触发一个函数 内容如下--> function highlight(jname){ //去掉body中所有高亮的字段 $('body').removeHighlight(); //高亮body中所有jname的字符串 $('body').highlight( jname ); }, 200); } CSS样式 .highlight { background-color: #fff34d; -moz-border-radius: 5px; /* FF1+ */ -w

delphi中获取memo鼠标所在位置的行和列(通过EM_GETRECT消息取得Rect后,自己算一下)

也是看别人写的,但是不容易找到,就转发一篇delphi版本的 function GetLine(X, Y: integer): TPoint;var  OldFont : HFont;  Hand : THandle;  TM : TTextMetric;  Rect : TRect;begin  Hand := GetDC(mmotest.Handle);  try    OldFont := SelectObject(Hand, mmotest.Font.Handle);    try   

eclipse高亮选中属性以及更改颜色

1.显示:      1.1.工具栏里有个黄色小笔的图标,点一下就好了      1.2.打开对话框windows->preference,在左上角输入mark Occurrencs 把右边都选上就Ok了. 2.更改颜色:      打开对话框windows->preference,在左上角输入Annotations.选中右边的Occurences可以修改颜色.

DELPHI dbgrid 选中的是第几行 怎么判断?

使用DataSource.DataSet.RecNo可以得到dbgrid选中的是第几行,示例代码如下: procedure TForm1.btn1Click(Sender: TObject); begin ShowMessage(IntToStr(dbgrd1.DataSource.DataSet.RecNo)); end; 效果如下: 先用ADOQuery连接数据库在DBgrid内显示出来~~~~之后在DBgrid的OnCellClick事件写如下代码procedure TForm1.DBGr

.net基础の心得一

托管代码 和非托管代码 在业务方面 托管代码要比非托管代码的速度要快  在程序第一次运行的时候 托管代码 会经过csc编译器  还有CLR 转换成本地平台的二进制指令  那么之后就会变非托管代码的运行的速度要快   但是一段程序关闭 或关机   在其运行的时候那么又需要转换成本地平台的二进制指令 .net平台的简答的编译原理 我们写好的程序 在编译的时候 会经过csc编译器编译成为微软的中间语言储存在程序集中  然后再经过CLR中的JIT及时编译器 转化成本地CPU的二进制指令   然后运行 什

delphi checklistbox用法

在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等 删除:CheckListBox.DeleteSelected; 上下移: CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(Index); 上下移动用 CheckListBox1.Items.Move(CurrentIndex,NewIndex); //在项目中添加字符串(子项目的最后一位接着添加)      CheckLis