動作環境

RAD Studio 10.2 Tokyo Update 3

処理概要

複数のTComboBox
一つのTComboBoxからもう一つのTComboBoxへ設定をコピーしたい (Ctrl+C, Ctrl+V)

参考

https://stackoverflow.com/questions/840144/how-to-disable-copy-paste-in-tedit
- OnKeyPress()で処理する
- 処理時にキー入力をキャンセルする
  - Cの処理になるのを防ぐ
- Ctrl+CとCtrl+Vはそれぞれ3と22というコードを使う

実装

Unit1.h

//---------------------------------------------------------------------------

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
    TComboBox *ComboBox1;
    TComboBox *ComboBox2;
    void __fastcall ComboBox1KeyPress(TObject *Sender, System::WideChar &Key);
    void __fastcall FormShow(TObject *Sender);

private:	// ユーザー宣言
    signed int m_preserved_key; // Ctrl+C押下時に保存する
public:		// ユーザー宣言
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif

Unit1.cpp

//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

/*
Reference: Ctrl+CとCtrl+V
https://stackoverflow.com/questions/840144/how-to-disable-copy-paste-in-tedit
*/

void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender, System::WideChar &Key)
{
    if (Key == 3) { // Ctrl+C
        // 1. 選択の保持
        TComboBox *cbPtr = (TComboBox*)Sender;
        m_preserved_key = cbPtr->ItemIndex;
        // 2. 入力のキャンセル
        Key = 0x00; // C入力としての処理を発生させないため
    }

    if (Key == 22) { // Ctrl+V
        if (m_preserved_key >=-1) {
            TComboBox *cbPtr = (TComboBox*)Sender;
            cbPtr->ItemIndex = m_preserved_key;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    m_preserved_key = -10; // -10: 任意 (-1はコンボボックス非選択という意味があるため、-1以外の値)

    // 2つのコンポーネントに同じ処理を設定
    ComboBox1->OnKeyPress = ComboBox1KeyPress;
    ComboBox2->OnKeyPress = ComboBox1KeyPress;
}
//---------------------------------------------------------------------------

実行例

選択肢は多い

上のGeordi La Forgeの設定をCtrl+C, Ctrl+Vにて下にコピーした後