動作環境

C++ Builder XE4
RAD Studio 10.2 Tokyo Update 2 (追記: 2017/12/28)

関連: C++ Builder > TTrackBar > 値変更中にOnChange()が繰返し実行される > 変更終了の検知案
関連: C++ Builder > TTrackBar と TEdit > 値の同期 > TTrackBar:OnChange | TEdit:OnExit

OnChangeイベントを用いた複数コンポーネントの値の同期について。

Focused()を使うという案を聞いた。

二つのTTrackBar のOnChangeで試してみた。

code

Unit1.h

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

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
# include <Vcl.ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TTrackBar *TrackBar1;
	TTrackBar *TrackBar2;
	TMemo *Memo1;
	void __fastcall TrackBar1Change(TObject *Sender);
	void __fastcall TrackBar2Change(TObject *Sender);
private:	// ユーザー宣言
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;
//---------------------------------------------------------------------------

static const bool kUseTrackBarFocued = false;

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
	if (kUseTrackBarFocued && TrackBar1->Focused() == false) {
		return;
	}

	TrackBar2->Position = TrackBar1->Position;
	Memo1->Lines->Add(L"TrackBar1Change");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
	if (kUseTrackBarFocued && TrackBar2->Focused() == false) {
		return;
	}

	TrackBar1->Position = TrackBar2->Position;
	Memo1->Lines->Add(L"TrackBar2Change");
}
//---------------------------------------------------------------------------

Focused()不使用

kUseTrackBarFocued = false

(1)の部分: TrackBar1を変更
(2)の部分: TrackBar2を変更

再帰的にイベントが発生している。

Focused()使用

kUseTrackBarFocued = true

(1)の部分: TrackBar1を変更
(2)の部分: TrackBar2を変更

再帰的なイベント発生は抑止できた。
TrackBarの値変更中にイベントが連発はする。
(これが許容できるかどうかはイベントの内容によるだろう）