在memo中如何取得当前光标的行和列 iCurrentLine := Memo1.CARETPOS.Y+1; iCurrentCol := Memo1.CARETPOS.X; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi中有控件MEMO,当使用应控件输入内容或编辑时,如何确定光标当前的位置呢?这时就可以调用WINDOWS API中的EM_LINEFROMCHAR和EM_LINEINDEX消息来确定MEMO控件中光标的当前行和列,具体调用方法的过程如下:procedure TForm1.Button1Click(Sender: TObject);varLineNum:longint;CharsBeforeLine:longint;begin LineNum := SendMessage(Memo1.Handle,EM_LINEFROMCHAR, Memo1.SelStart,0);CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX, LineNum,0);Label1.Caption:='Line: '+IntToStr(LineNum + 1);Label2.Caption:='Position: '+IntToStr((Memo1.SelStart - CharsBeforeLine)+1);end;//另一种方法 定义变量iLine: Integer; { 使用em_LineFromChar消息 } iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0); { 第一行为0 } messageDlg('行号: ' + IntToStr(iLine), mtInformation,[mbOK], 0 ) ; to:rh(强硬的毛主席万岁!伟大的周总理万岁!)我发现你懂的蛮多列,可以联络以下吗?OICQ:16218085EMAIL:[email protected] 我真的是菜鸟耶~~~~~~~~我不懂DELPHI,我的BCB很菜~~~愿意联系的话:[email protected] 准备发布DELPHI线程30分钟学会之初级教程 关于百分比,在线等! 在Delphi中怎么实现像任务管理器中的CPU使用效率那样的动态波形图表? 统计listbox1增加了的记录 导出EXCEL问题,急啊在线等! 高分问简单的ACCESS数据库操作问题 关于一个事件的问题 怎样获得一个Application的版本信息? 错误提示:尚未调用Coinitialize. 身边很多搞DELPHI的朋友,都说自己是高手,到底怎样才算是DELPHI高手, 怎样在delphi中实现ms sql server导入导出数据! 获取Windows临时路径
var
LineNum:longint;
CharsBeforeLine:longint;
begin
LineNum := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,
Memo1.SelStart,0);
CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,
LineNum,0);
Label1.Caption:='Line: '+IntToStr(LineNum + 1);
Label2.Caption:='Position: '+IntToStr((Memo1.SelStart -
CharsBeforeLine)+1);
end;//另一种方法
定义变量iLine: Integer;
{ 使用em_LineFromChar消息 }
iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0);
{ 第一行为0 }
messageDlg('行号: ' + IntToStr(iLine), mtInformation,[mbOK], 0 ) ;
我发现你懂的蛮多列,可以联络以下吗?
OICQ:16218085
EMAIL:[email protected]
我不懂DELPHI,我的BCB很菜~~~
愿意联系的话:[email protected]