Club Builder

[dipa]

ombre yo quiero hacer un componente shape con circle que se pueda arrastrar y soltar sobre la ventana y utilizo este sencillo codigo

void __fastcall TForm1::Shape1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept = Source->ClassNameIs("TShape");
}

funciona, pero el componente se me coloca en una especie de ventana con el boton de cerrar ventana, como es obvio yo no quiero eso, alguien puede ayudarme es urgente para un programa de grafos