发信人: za()
整理人: (2000-12-05 19:52:24), 站内信件
|
通过调用API确定MEMO控件中的当前行和列。
你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和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]
|
|