delphi - TMemo のテキストの先頭をロックする

Question

常に文字列 'SELECT c_name FROM ' で始まる TMemo が必要であり、ユーザーが TMemo でこの文字列を削除または置換できないようにロックしたいので、この文字列の後にテキストを書き込む必要があります。誰かがそれを手伝ってくれますか？onChange イベントで何かを試してみましたが、問題は、ユーザーが TMemo の先頭をクリックして、先頭まで編集できることです。

Delphi 6 を使用しています。

Answer 1

あなたが求めていることは、 では不可能TMemoです。EDITこれは、この種の機能をサポートしていない、標準の Win32 コントロールの薄いラッパーです。

TRichEdit代わりに使用する必要があります。あなたが説明したように、テキストの保護をサポートしています。目的のテキストを追加した後、TRichEdit.SelStartおよびプロパティを使用してテキストを選択し、プロパティを trueTRichEdit.SelLengthに設定します。TRichEdit.SelAttributes.Protectedユーザーが何らかの方法で保護されたテキストを変更しようとすると、TRichEditデフォルトで変更が拒否されます (TRichEdit.OnProtectChangeイベントを使用してAllowChangeパラメーターを true に設定することで、その決定を無効にすることができます)。例えば：

RichEdit1.Text := 'SELECT c_name FROM ';
RichEdit1.SelStart := 0;
RichEdit1.SelLength := 19;
RichEdit1.SelAttributes.Protected := True;

更新:デフォルトでは、テキストを保護すると、ユーザーはテキストをコピーできなくなります。ユーザーが保護されたテキストをコピーできるようにする場合は、明示的に有効にする必要があります。TRichEdit保護されたテキストへのアクセスを許可するイベントがありますが、テキストがアクセスを要求している理由はわかりOnProtectChangeません。ただし、基になる通知は行います。したがって、 をサブクラス化して直接インターセプトし、ユーザーが保護されたテキストをコピーしている場合にのみ 0 (アクセスを許可) を返すことができます。EN_PROTECTEDTRichEditEN_PROTECTED

interface

uses
  ...;

type
  TMyForm = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    DefRichEditWndProc: TWndMethod;
    procedure RichEditWndProc(var Message: TMessage);
  public
    { Public declarations }
  end;

...

implementation

uses
  Richedit;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  DefRichEditWndProc := RichEdit1.WindowProc;
  RichEdit1.WindowProc := RichEditWndProc;

  RichEdit1.Text := 'SELECT c_name FROM ';
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 19;
  RichEdit1.SelAttributes.Protected := True;
end;

procedure TMyForm.RichEditWndProc(var Message: TMessage);
begin
  DefRichEditWndProc(Message);
  if Message.Msg = CN_NOTIFY then
  begin
    if TWMNotify(Message).NMHdr.code = EN_PROTECTED then
    begin
      if PENProtected(Message.lParam).Msg = WM_COPY then
        Message.Result := 0;
    end;
  end;
end;

または:

interface

uses
  ...;

type
  TRichEdit = class(ComCtrls.TRichEdit)
  private
    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
  end;

  TMyForm = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

...

implementation

uses
  Richedit;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  RichEdit1.Text := 'SELECT c_name FROM ';
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 19;
  RichEdit1.SelAttributes.Protected := True;
end;

procedure TRichEdit.CNNotify(var Message: TWMNotify);
begin
  inherited;
  if Message.NMHdr.code = EN_PROTECTED then
  begin
    if PENProtected(Message.NMHdr).Msg = WM_COPY then
      Message.Result := 0;
  end;
end;

Answer 2

それは可能ですが、解決策が気に入ったらわかりません。

すでに述べTMemoたように、そのような動作は実装されていません。したがって、この動作をプログラムする必要があります。

応募OnIdleイベントや内容の記念品にご利用ください。Idle メッセージごとに、メモの内容を検証します。メモ コンテンツの先頭にない場合'SELECT c_name FROM 'は memento 値を割り当て、それ以外の場合はメモ コンテンツを memento に保存します。

その検証とカーソル保護の例を次に示します

type
  TMainForm = class( TForm )
    Memo1: TMemo;
    ApplicationEvents1: TApplicationEvents; // OnIdle = ApplicationEvents1Idle
    procedure ApplicationEvents1Idle( Sender: TObject; var Done: Boolean );
  private
    FMemo1StartWith: string;
    FMemo1Memento  : string;
    procedure ValidateMemo( AMemo: TMemo; const AStartWith: string; var AMemento: string );
  public
    procedure AfterConstruction; override;

  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.AfterConstruction;
begin
  inherited;
  FMemo1StartWith := 'SELECT c_name FROM ';
end;

procedure TMainForm.ApplicationEvents1Idle( Sender: TObject; var Done: Boolean );
begin
  ValidateMemo( Memo1, FMemo1StartWith, FMemo1Memento );
end;

procedure TMainForm.ValidateMemo( AMemo: TMemo; const AStartWith: string; var AMemento: string );
var
  lCurrentContent: string;
begin
  // protect content

  lCurrentContent := AMemo.Text;
  if Pos( AStartWith, lCurrentContent ) = 1
  then
    AMemento := lCurrentContent
  else if Pos( AStartWith, AMemento ) = 1
  then
    AMemo.Text := AMemento
  else
    AMemo.Text := AStartWith;

  // protect cursor position

  if ( AMemo.SelLength = 0 ) and ( AMemo.SelStart < Length( AStartWith ) )
  then
    AMemo.SelStart := Length( AStartWith );
end;