修正 Memo 設定為 ReadOnly 後, 無法有複製的功能

问题:当 Memo 設定為 ReadOnly = True 後, 选取一段文字后,無法有複製的功能。

适用:XE6 Android 系统(目前 iOS 还找不到方法)

修正方法:

请将源码 FMX.Platform.Android.pas 复制到自己的工程目录里,再进行修改。

找到 TWindowManager.ShowContextMenu 函数,删除一行,如下:

procedure TWindowManager.ShowContextMenu(const ItemsToShow: TContextMenuItems);
begin

  ..... 省略 ......

    PlatformAndroid.SynchronizeOnUIThread(
      procedure
      begin
        if FCopyButton <> nil then
          FContextButtonsLayout.addView(FCopyButton);
        if FCutButton <> nil then
          FContextButtonsLayout.addView(FCutButton);
        if FPasteButton <> nil then
          FContextButtonsLayout.addView(FPasteButton);
//  if TVirtualKeyboardState.Visible in VirtualKeyboardAndroid.VirtualKeyboardState then // 删除这一行
          DoShowContextMenu;
      end);
  end;
end;

修正 Memo 設定為 ReadOnly 後, 無法有複製的功能

时间: 2024-08-25 22:34:44

修正 Memo 設定為 ReadOnly 後, 無法有複製的功能的相关文章

[three.js] 解決貼圖無法重複的問題 Solving with Texture RepeatWrapping Fail Issue

有些东西,你想找的时侯,怎么也找不到, 而有些东西,不经意间,随处可见: 本以为这是生活中常见的事情, 然而在浩瀚的互联大海中,也是如此. 平时的积累是为了一时之需, 几分钟的投入, 积累起来, 也会成为汪洋大海, 载起一帆小舟, 不至搁浅. 平时注一入滴水, 需时拥有太平洋, 广告词很好, 然而它真正的意义又有几人能真正领悟呢! 附一个不错的 threejs 开源链接: https://github.com/rmx/threejs-collada [three.js] 解決貼圖無法重複的問題

Linux系統SUDO的使用定義及設定

什麼是sudo?Sudo是可以讓某個用户不需要擁有(管理員)的賬號密碼,可以執行管理員的權限的.作為管理員可以指派某些用户可以執行某些 特定命令. Sudo的特點 它的特性主要有这样幾點: Sudo能够限制用户只在某台主機上運行某些命令 Sudo提供了豐富的日志,詳细地記錄了每個用户幹了什麼. 它能够將日記傳到中心主機或者日記服務器 Sudo使用時間戳文件來執行類似的"檢票"系统.當用户調用 sudo并且输入它的密碼時, 用户获得了一张存活期为5分钟的票 (这个值可以在编译的时候改变)

設定 Bootstrap/SASS/Bower/gulp (Windows平台)

請注意:在進行以下步驟前,你會需要先安裝git,可以參考這篇 git安裝教學 前言 時至今日,幾乎每個人都在討論bootstrap.less 或 sass.我們知道它們是比較新的前端技術,而且有開始愈來愈流流行的趨勢,但是到底要怎麼使用它們? 想像一下我們現在有個新的專案會需要使用到 bootstrap,但是我們也想要做點修改,該怎麼做呢? 假設你已經知道什麼是 Bootstrap 與 SASS,但是我們不知道要從哪裡開始才好,這個教學將會教你如何為你的專案設定一些輔助工具. 1. 安裝 nod

即時更新程式設定

有一些交易程式,在營業時間並不容許隨易的停止服務,如果遇到很小的 bug 或問題,最好是以不停止服務,僅更改設定的方式來解決,這裡提供一個小小的程式,可以不停止服務的情況下,更新程式的設定. 1 package idv.steven.annotation; 2 3 import java.lang.annotation.ElementType; 4 import java.lang.annotation.Retention; 5 import java.lang.annotation.Reten

擠出線寬(Extrusion width),要怎麼設定?

Slic3r的作者,把這邊的%設定,跟"層高"做連結.我個人認為擠出線寬,要以噴頭孔徑當做設定參考才好.層高應該只要設定成孔徑的一半以下,就可以印得不錯~ 擠出頭孔徑0.4mm時,筆者是這樣設定擠出寬度的. 擠出塑料的體積 = 0.2(層高) x 0.6(線寬) x 2.4(線長) mm3 列印要擠出多少料呢?算法是擠出線寬乘以層高,再乘以線長. 層高是另一個設定值設定下來,在這邊是不會改變的. 這邊要變動的是線寬. 料擠出後,受到底層的擠壓,會開始往兩邊溢出.溢出越多,線寬就越寬.機

免安裝、免設定的 Hadoop 開發環境 - cloudera 的 QuickStart VM

cloudera 的 QuickStart VM,為一種免安裝.免設定 Linux 及 Hadoop,已幫你建好 CDH 5.x.Hadoop.Eclipse 的一個虛擬機環境.下載後解壓縮,可直接以 VirtualBox.VMWare.Docker.KVM 任一虛擬機,開啟 Hadoop 2.x 執行環境,並可用內建本地模式的 Eclipse 開發工具,開發.執行 Hadoop 程式碼. 下載點 :http://www.cloudera.com/downloads.html?productID

(原創) Gvim 個人習慣常用設定

不定期更新這篇,因為查詢到好用的設定或者插件就會更新自己的設定. 1 "set nocompatible 2 let $LANG='zh_TW.UTF-8' 3 set langmenu=zh_tw.utf-8 4 set encoding=utf-8 5 source $VIMRUNTIME/vimrc_example.vim 6 source $VIMRUNTIME/mswin.vim 7 behave mswin 8 9 set diffexpr=MyDiff() 10 function

【Exchange 2019 設置技巧】郵箱權限設定

問,如果管理郵箱權限? 答,Send AS:就是代表你發送,但是不顯示代理人的名字.Send on Behalf:也是代表你發送,但是會顯示代理人的名字.Full Access :完全獲取你郵箱的讀取權限,但是不能發送. 最簡單的就是按"+"號就可以了.第二個方法就是啓用Exchange Powershell. Full Access命令的意思是,用戶[email protected]將獲取Amway [email protected]郵箱的讀取權限,僅此而已,有時候會出現一個問題,因

ASP.NET 強制設定開啟或是關閉相容性檢視

通常網頁開發上,最怕是版型跑掉,因為,網頁系統上的UI版型跑掉是最麻煩一件事情,但是往往因為,目前網頁開發技術並未統一,且又有可能有舊版的系統在使用.因此,IE上面會有相容性檢視的功能讓新版IE可以再使用舊版的系統(大都是IE8年代以前開發的系統)的版型不會跑掉. 在企業內部一般來說,因為很多年代久遠系統,所以,可能預設會把相容性檢視打該,但是,若是今天自己開發網站是用像是HTML5 + CSS3開發可能這樣版型在設定相容性模式下就會跑掉,但是,不太大可能讓使用者取消這設定,畢竟除新系統之外,還