clipboard - TEditでコピー/貼り付けを無効にする方法

Question

のコピー、切り取り、貼り付けを防止したいTEdit。これどうやってするの？

Key=NULLコントロールを押したときにonKeyDownイベントを設定してみCTRL+Vましたが、うまくいきませんでした。

score 5 · Accepted Answer

WM_CUT、、、WM_COPYおよびWM_PASTEメッセージがTEditに送信されないようにする必要があります。この回答では、WindowsAPIのみを使用してこれを行う方法について説明します。TEditVCLの場合、プロパティをサブクラス化して変更するDefWndProcか、メソッドをオーバーライドするだけで十分な場合がありますWndProc。

score 4 · Accepted Answer

これをに割り当てますTEdit.OnKeyPress：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#22) or (Key=#3) then Key:=#0;   // 22 = [Ctrl+V] / 3 = [Ctrl+C]
end;

score 2 · Accepted Answer

これは古い質問ですが、見つけたものを追加します。元のポスターにはほとんど解決策がありました。キーダウンイベントではなく、キープレスイベントでカット/コピー/貼り付けを無視すると、正常に機能します。すなわち（c ++ビルダー）

void __fastcall Form::OnKeyPress(TObject *Sender, System::WideChar &Key)
{
   if( Key==0x03/*ctrl-c*/ || Key==0x16/*ctrl-v*/ || Key==0x018/*ctrl-x*/ )
      Key = 0;  //ignore key press
}

score 0 · Accepted Answer

TEditウィンドウがアクティブなときにショートカットを取得してCVCCCXをブロックするいくつかのグローバルプログラムを使用できます

score 0 · Accepted Answer

0

Uses Clipbrd;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Clipboard.AsText := '';
end;

于 2017-01-18T11:44:17.603 に答える

score 0 · Accepted Answer

古い質問ですが、同じ悪い答えがまだ浮かんでいます。

unit LockEdit;

// Version of TEdit with a property CBLocked that prevents copying, pasting,
// and cutting when the property is set.

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, StdCtrls, Windows;

type

  TLockEdit = class(TEdit)
  protected
      procedure WndProc(var msg: TMessage); override;
  private
      FLocked: boolean;
  public
      property CBLocked: boolean read FLocked write FLocked default false;
  end;

implementation

  procedure TLockEdit.WndProc(Var msg: TMessage);
  begin
  if ((msg.msg = WM_PASTE) or (msg.msg = WM_COPY) or (msg.msg = WM_CUT))
      and CBLocked
          then msg.msg:=WM_NULL;
  inherited;
  end;

end.

clipboard - TEditでコピー/貼り付けを無効にする方法

6 に答える 6

Related

Reference