c++ builder XE4, 10.2 Tokyo > Hint > クリック時に一覧を表示する

動作環境

C++ Builder XE4
RAD Studio 10.2 Tokyo Update 2 (追記: 2017/12/27)
  - code v0.3は動作確認済

gmailでは「To」の送信先名の一番右端にある「下矢印」を押すことで送信先アドレスリストなどが表示される。

これに近いUIを実装できないだろうか。

C++ Builderでクリック時にHintを表示するようにしてみた。

code v0.1

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

static const String kDummyList = L"[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	;


__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Memo1->Clear();
	Memo1->Lines->Add(kDummyList);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1Click(TObject *Sender)
{
	Memo1->ShowHint = true;

	String msg = Memo1->Lines->Text;
	msg = StringReplace(msg, L",", L",\r\n", TReplaceFlags()<<rfReplaceAll);
	Memo1->Hint = msg;
}
//---------------------------------------------------------------------------

Memo1上でクリックするたびに一覧が表示される。

閲覧性は上がった。

編集しやすいかというとそうでもない。１アドレスの削除、追加は実施しづらい。

code v0.2 > MouseLeave()追加

v0.1のコードの場合、Memo1から離れて再度Memo1上に来たときにHintが表示される。これを回避するため、MouseLeave()を追加してみた。

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

static const String kDummyList = L"[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	;


__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Memo1->Clear();
	Memo1->Lines->Add(kDummyList);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1Click(TObject *Sender)
{
	Memo1->ShowHint = true;

	String msg = Memo1->Lines->Text;
	msg = StringReplace(msg, L",", L",\r\n", TReplaceFlags()<<rfReplaceAll);
	Memo1->Hint = msg;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1MouseLeave(TObject *Sender)
{
	Memo1->ShowHint = false;
}
//---------------------------------------------------------------------------

Memo1から離れたときにMouseLeave()が実行されてShowHintがfalseになる。再度Memo1上に来たときにはクリックするまではHintは表示されない。

Memo1のスクロールバークリック時はHintが表示されないので邪魔にはならない。

code v0.3 > コンポーネント可変対応 (Sender使用)

Memo1Click()やMemo1MouseLeave()の処理にて「Memo1」のように固定のコンポーネントにすると他のコンポーネントで使用できない。

Senderを使うように変更した。

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

static const String kDummyList = L"[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	L",[e-mail]"
	;


__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Memo1->Clear();
	Memo1->Lines->Add(L"1\r\n" + kDummyList);

	Memo2->Clear();
	Memo2->Lines->Add(L"2\r\n" + kDummyList);

	Memo3->Clear();
	Memo3->Lines->Add(L"3\r\n" + kDummyList);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1Click(TObject *Sender)
{
	if (dynamic_cast<TMemo *>(Sender) == NULL) {
		return;
	}

	TMemo *dstPtr = (TMemo *)Sender;

	dstPtr->ShowHint = true;

	String msg = dstPtr->Lines->Text;
	msg = StringReplace(msg, L",", L",\r\n", TReplaceFlags()<<rfReplaceAll);
	dstPtr->Hint = msg;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1MouseLeave(TObject *Sender)
{

	if (dynamic_cast<TMemo *>(Sender) == NULL) {
		return;
	}

	TMemo *dstPtr = (TMemo *)Sender;

	dstPtr->ShowHint = false;
}
//---------------------------------------------------------------------------

あとはMemo1Click()やMemo1MouseLeave()を違う名前にして、OnClick, OnMouseLaveにその関数を使うことで共通化する。