精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 1.4 调用API确定MEMO控件
发信站: 哈工大紫丁香 (2000年09月01日13:15:05 星期五), 站内信件

通过调用API确定MEMO控件中的当前行和列。

你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和EM—LINEINDEX函数来确定MEMO
控件中的当前行和列，具体调用的过程见下面的过程。
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）
Lab
el2．Caption：=′Position′＋IntToStr（（Memo1．SelStart－
CharsBeforeLine）＋1）；
end；

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]