TDBEditのPopupMenuデフォルト動作

Question

は、そのPupupMenuプロパティセットが選択されていないTDBEdit制御し、マウスの右ボタンがあるときデルファイ5（はい、私はそれが非常に古いことを知っている）とDelphi 10.1間の挙動の変化があるように見えますクリックしたDelphi 5では、TDBEditの親コントロールであるPopupMenuが表示されていますが（もちろん、それがあると仮定します）、Delphi 10.1ではWindowsのコンテキストメニューが「元に戻す」、「切り取られます」、「右から左へ読み上げる」など。]。

は、どのように私はそれが明示的に設定1を持っていない場合、デルファイ10.1 TDBEditコントロールの親コントロールののPopupMenuを使用して取得することができます。移行されるアプリケーションには、数十のTDBEditコントロールを持つフォームがたくさんあり、それぞれのPopupMenuプロパティを明示的に親コントロールのものに設定する必要があります。

Answer 1

あなたは、アプリケーションのScreenオブジェクトのOnActiveFormChangeイベントを使用して、このためのシンプルな（または、あなたは言うかもしれない、単純化）実行時に修正を行うことができます。

それは少なくとも、あなたのメインフォームで使用されてDataModuleのに必要なコードのほとんどを置くために、おそらく最も簡単です。例えば

DataModuleのに次のメソッドを追加：

Uses [...] Forms, DBCtrls; 

procedure TdmPopUp.ActiveFormChange(Sender: TObject); 
begin 
    FixUpDBEdits(Screen.ActiveForm); 
end; 

procedure TdmPopUp.FixUpDBEdits(AForm : TForm); 

    procedure FixUpDBEdit(ADBEdit : TDBEdit); 
    begin 
    if ADBEdit.PopupMenu = Nil then 
     if ADBEdit.PopupMenu <> AForm.PopupMenu then 
     ADBEdit.PopupMenu := AForm.PopupMenu 
    end; 

    procedure FixUpDBEditsInner(AComponent : TComponent); 
    var 
    i : Integer; 
    begin 
    if AComponent is TDBEdit then 
     FixUpDBEdit(TDBEdit(AComponent)); 
    for i := 0 to AComponent.ComponentCount - 1 do 
     if AComponent.Components[i] is TDBEdit then 
     FixUpDBEdit(TDBEdit(AComponent.Components[i])); 
    end; 

begin 
    FixUpDBEditsInner(AForm); 
end; 

次に、あなたが必要とするすべての追加のコードは、あなたのメインフォームのOnCreateイベントおよびOnDestroyに行くことができます：明らかに

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    Screen.OnActiveFormChange := Nil; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Screen.OnActiveFormChange := dmPopUp.ActiveFormChange; 
end; 

「ハード「作業」は、データモジュール内のFixUpDBEditサブプロシージャで実行されます。私のバージョンは、単にDBEDITのPopUpMenuは、それがすでに囲む形のPopUpMenuに設定されていないこと、（場合には、それが明示的に何かに設定されている）nilでないことを確認してから、フォームのに割り当てます。これはソークテストされていないし、いくつかの苦難が必要かもしれないが、うまくいけばあなたが行く必要があります。