精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>通过调用API确定MEMO控件中的当前行和列

主题:通过调用API确定MEMO控件中的当前行和列
发信人: za()
整理人: (2000-12-05 19:52:24), 站内信件
通过调用API确定MEMO控件中的当前行和列。 

你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和EM—LINEINDEX函数来确定MEM
O控件中的当前行和列,具体调用的过程见下面的过程。
var
  LineNum:longint;
  CharsBeforeLine:longint;
begin
  LineNumΚSendMessage(Memo1.Handle,EM—LINEFROMCHAR,Memo1.SelSta
rt,0);
  CharsBeforeLine:=SendMessage(Memo1.Handle,EM—LINEINDEX,LineNum
,0);
  Label1.Caption:=′Line′+IntToStr(LineNum+1)
  Label2.Caption:=′Position′+IntToStr((Memo1.SelStart-CharsBe
foreLine)+1);
end;

--
我从黑暗中来,又在黑暗中消失.

※ 修改:.za 于 Sep  1 10:16:34 修改本文.[FROM: 202.106.125.181]
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.106.125.181]

[关闭][返回]