● DELPHI使用技巧（4） - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: DELPHI使用技巧（4）
发信站: BBS 荔园晨风站 (Thu Jan 21 22:32:23 1999), 转信

    技巧4：通过调用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）
    Label2．Caption：Κ′Position′＋IntToStr（（Memo1．SelStart－
CharsBeforeLine）＋1）；
    end；

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店