Ver Mensaje Individual
  #3  
Antiguo 20-09-2011
Rolando Glez Rolando Glez is offline
Miembro
 
Registrado: nov 2004
Ubicación: Havana
Posts: 62
Reputación: 20
Rolando Glez Va por buen camino
La manera anterior explicada por mi no se adecua a mis requerimientos en ese caso una forma se hace parent de la otra y no hace lo por mi deseado es decir conectarla de forma independiente , esto lo logre haciendo un drag & drop por código,pues bien cree dos formas del tipo Tdockform heredando de la clase del mismo nombre del demo que trae delphi le puse todas la property con el valor para aceptar otras formas (docksite=true),pero hay algo importante para conectarlas no pueden ser style=Mdichild si no fs=fsNormal y despues hice un drag & drop por codigo cuando logre hacer esto me di cuenta que con delphi se puede hace cualquier cosa , solamente hay que buscar la herramienta necesaria y usarla , pues bien el drag & drop por codigo es :

Código:
//posicionar cursor del mouse dentro de la forma a mover creada y //mostrada   en diseño

SetCursorPos(form2.Top+10,form2.left+10);

//hacer click sobre la forma
click;
//comenzar el drag
Form2.BeginDrag(true,-1);
//mover el cursor del mouse sobre la forma destino (form2) recipiente 
//del cliente  (form1)
SetCursorPos(Form1.Top+10,Form1.left+10);
//terminar la operacion de drag
Form2.EndDrag(true);

una vez esto hecho en el evento on show de la Forma Principal
el efecto que tiene es que se conectan la dos formas en un contenedor que hace un split (division) , como ven a lo mejor no es la manera adecuada de hacerlo , a lo mejor hay otra manera de lograr el mismo proposito, pero al "simular" el drag & drop obtuve la conexion (dock), el único inconveniente que tiene es que sale el botón de cerrar en cada una de la formas conectadas y cuando se pincha me salta un error que informa que no se puede cerra una forma con style fsMdichild, pero bueno ya le dare una solucion a ese detalle no se puede hacer un hide sobre una forma con style=fsMdiChild , bueno amigos espero que este comentario halla explicado como obtuve mi primera aplicación usando dock Form pues hace tiempo tenia ese "bichito" de como hacerlo Saludos a todos.
Responder Con Cita