麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

Delphi中RichEdit的奧妙

2019-11-18 18:51:38
字體：大 中 小
來源：轉載
供稿：網友
一、如何得知當前行號
　　用RichEdit（或者memo）控件制作文本編輯器時，通過訪問lines??count屬性可以得到總行數，但是若想知道光標當前所在行的行號就麻煩了，因為delphi沒有提供這個屬性。要實現這個編輯器必備功能，就須調用em_ LineFromChar。請試試下面的程序。
　　先在窗口中布置一個RichEdit或者memo（命名為editor），以及一個button。在button的onclick事件中寫入下列代碼。
　　var
　　CurrentLine:Integer;
　　begin
　　CurrentLine:=Editor??Perform(em_ LineFromChar,SFFFF,0);
　　application??MessageBox(PChar(′當前行號是′＋IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
　　end;
　　需要注意的是，第一行的行號為零。
　　二、如何撤消操作（undo）
　　對于memo來說，實現undo是不需編程的，只要讓popupmenu屬性為空，運行時就能用鼠標右鍵激活一個常用操作菜單，其中包括撤消、剪切、復制、粘貼、刪除和全選六項。
　　但可惜的是，這一招對于功能強大的RichEdit控件居然行不通，害得我們還要自己設計一個popupmemu。當你用CutToClipBoard等語句輕松而順利地完成了“剪切”等功能，接著便會無奈地發現，竟找不到undo或cancel之類的語句來執行“撤消”。
　　這時你需要這樣處理：
　　RichEdit1??Perform(EM_UNDO,0,0);
　　另外還應檢查是否允許撤消，從而開啟或關閉彈出菜單中的“撤消”項：
　　Undo1??Enabled:=RichEdit??Perform(EM_CANUNDO,0,0)<>0;
　　以上程序在Delphi3中調試通過

上一篇：將面向對象的思想貫穿始終--談Delphi開發（第三篇）

下一篇：DELPHI的原子世界(1)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 中国老女人一级毛片视频 | 亚洲精品午夜在线 | av亚洲在线观看 | 久久精品79国产精品 | 国产精品久久久久久久久久久久午夜 | 手机在线看片国产 | 在线观看国产 | 久久青草影院 | 姑娘第四集免费看视频 | 国产青草视频在线观看视频 | 亚洲视频观看 | 国产一区二区三区四区五区精品 | 色就操| 国产精品视频免费网站 | 中文日韩字幕 | 欧美一级黄视频 | 中文字幕综合在线观看 | 久久综合综合久久 | 涩涩屋av | 美国av片在线观看 | 国产高清一区 | 亚洲欧美在线视频免费 | 欧美a∨一区二区三区久久黄 | 欧美一级黄视频 | 免费视频www在线观看 | 蜜桃视频在线入口www | 欧美日韩在线视频观看 | 欧美精品欧美 | 国产亚洲欧美日韩高清 | 国产精品久久久久久久久久尿 | 啊～用cao嗯力cao烂我视频 | 欧美日本在线播放 | 国产成人综合在线 | 午夜精品成人一区二区 | 免费观看一级淫片 | 欧日韩 | 欧美亚洲国产一区二区三区 | 91美女视频在线 | 久章草在线视频 | 日韩欧美色综合 | 欧美三级欧美成人高清www |