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

```txt:動作環境
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"lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	;


__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上でクリックするたびに一覧が表示される。

![qiita.png](https://qiita-image-store.s3.amazonaws.com/0/32870/977e4014-26e3-6b05-0a96-567657c2ed0f.png)

閲覧性は上がった。

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


## 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"lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	;


__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"lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	L",lastname@www.software.com"
	;


__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;
}
//---------------------------------------------------------------------------
```

![qiita.png](https://qiita-image-store.s3.amazonaws.com/0/32870/8bc47145-81fb-b4a4-fbd7-2ccd606d8f4d.png)

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