Hello friends , good afternoon

Hello friends , good afternoon ,

Would anyone know how to do to the Drag Drop effect is done in automatic form . For example , let's say in a post File New Project .. we put one TButton on Form1 , and add the design a frame ( TFrame )
and rum in team event of the Button when clicked it will create the frame (which will already be with the properties :
  DragKind = dkDock
  DragMode = dmAutomatic

The event creates the frame and automatically make it stand out from the form that is acting as if being instantiating an Ordinary Form ( being created )

I even got below with this code however appears markings frames in various places before appearing Frame ( ja -sh style)

I wanted to make the frame appear in a certain position (highlighted in the form) without during click the button and when it appears , had not the appearance of frames ( frame edges ) in several places ( giving the impression that the box tried appear in several places before appearing ) would have not had this effect .. thereby I click the button and the frame is highlighted in place of X screen. I do not know if you understand me and if that is possible .

follows the code of the button event:

var
   Test : TFrame2 / / Creating the starting unit2 containing the frame
begin
    Test : = TFrame2.Create (Self ) ;
    Test.Parent : = Form1 ;
    Test.Show ;
    Test.BeginDrag ( True ) ;
    Test.Dragging ;
    Test.EndDrag ( True ) ;
end ;

If you can ajuidar I 'm thankful