[[coso]]

Hola, en el evento ondragover de todos los shapes

Código Delphi [-]
     Accept = source is TShape; // o Accept = source = TShape; o Accept = true, no se como se hace el 'is' en c++
     (TShape *)sender->Brush->Color := Random(0xFFFFFF);

con el dragmode de todos en dmAutomatic. Saludos.