O sistema de drag and drop do C++ Builder é muito fácil de usar, integrado que está com o sistema de classes e objetos do framework. Tanto para o objeto de drag quanto para o objeto de drop tudo que temos que fazer é definirmos a propriedade DragMode para dmAutomatic como mostra a figura. Isso fará com que toda a troca de mensagens seja manipulada automaticamente pela VCL.

A parte (ridídula) do código fica por conta da manipulação do evento de drop. Para aceitar um objeto, devemos tratar o evento OnDragOver. Basta isso para que a variável Accept tenha seu valor default definido para true. Podemos, entretanto, escolher se iremos ou não tratar um possível drop de um objeto. Verificando seu tipo, por exemplo:

void __fastcall TMain::FormDragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
	Accept = true;
}

void __fastcall TMain::ListBoxDragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
	Accept = dynamic_cast<TWinControl*>( Source ) ? true : false;
} 

A parte mais interessante do código fica por conta da hora que o objeto é "jogado", no evento OnDragDrop. Nela recebemos o ponteiro para o Sender (como sempre), que é o target object, e um Source. Geralmente para manipular o source object é necessário antes realizar um cast para um tipo mais conhecido.

void __fastcall TMain::ListBoxDragDrop(TObject *Sender, TObject *Source, 
	int X, int Y)
{
	if( TListBox* listBox = dynamic_cast<TListBox*>(Sender) )
	{
		TWinControl* winCtrl = static_cast<TWinControl*>(Source);

		if( listBox != winCtrl )
		{
			listBox->Items->Add(winCtrl->Name);
			winCtrl->Visible = false;
		}
	}
}

void __fastcall TMain::FormDragDrop(TObject *Sender, TObject *Source,
	int X, int Y)
{
	if( TForm* form = dynamic_cast<TForm*>(Sender) )
	{
		TControl* ctrl = 0;

		if( TListBox* listBox = dynamic_cast<TListBox*>( Source ) )
		{
			for( int i = 0; i < listBox->Count; ++i )
			{
				if( listBox->Selected[i] )
				{
					ctrl = this->FindChildControl(listBox->Items->Strings[i]);
					listBox->Items->Delete(i);
					break;
				}
			}
		}
		else
			ctrl = dynamic_cast<TControl*>(Source);

		if( ctrl )
		{
			ctrl->Top = Y;
			ctrl->Left = X;
			ctrl->Visible = true;
		}
	}
} 

E mais uma vez voilà! Pouquíssimas linhas de código e um movimentador e empilhador de controles. Dois detalhes merecem ser destacados:

• O uso de dynamic_cast em cima dos ponteiros da VCL é uma maneira saudável de checar a integridade dos tipos recebidos - particularmente do Sender. O uso do primeiro parâmetro dos tratadores de eventos também torna o código menos preso à componentes específicos do formulário;

• O método FindChildControl é deveras útil quando não temos certeza da existência de um controle. Geralmente é uma boa idéia confiar no sistema de gerenciamento de componentes da VCL. Não é à toa que existe um framework por baixo do ambiente RAD.