Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-11-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Colocación de un formulario

Tengo una aplicación en la que el formulario principal es un fsMDIForm con un TToolBar que hace las veces de menú. Al llamar a uno de los formularios fsMDIChild, y sólo a uno concreto, me está ocurriendo esto:

Siempre se me desplaza hacia abajo y saca la barra de desplazamiento vertical en vez de centrarlo. He probado con todas las combinaciones de posición del formulario (poDesigned, poDefault...) e incluso las lógicas para centrarlo (poScreenCenter, poOwnerFormCenter y poMainFormCenter) me hace lo mismo. He intentado forzar la posición vertical del segundo formualrio pero me da lo mismo y siempre me lo desplaza hacia abajo
Responder Con Cita
  #2  
Antiguo 28-11-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Siempre que el MDIForm sea mayor, podes centrar los MDIChilds luego de la creación, v. gr.:

Código PHP:
void __fastcall TMDIForm::CenterForm(TForm *F)
{
  
F->Left = (this->ClientWidth  F->Width) / 2;
  
F->Top  = (this->ClientHeight F->Height this->ToolBar1->Height ) / 2;
}

// Ejemplo de uso:
void __fastcall TMDIForm::ToolButton1Click(TObject *Sender)
{
  if (!
MDIChild1)  // ( * )
    
MDIChild1 = new TMDIChild1(this);
  else
    
MDIChild1->BringToFront();
  
//...
  
CenterForm(MDIChild1);

( * ) Usando Action = caFree. La comprobación de la existencia del MDIChild requiere que pongas a nulo la instancia al cierre,
o podrá provocar una excepcion al intentar traer al frente un objeto ya liberado.
Código PHP:
void __fastcall TMDIChild1::FormClose(TObject *SenderTCloseAction &Action)
{
  
Action caFree;
  
MDIChild1 NULL// <- 

Si dejas el MDIChild minimizado al cerrarlo (no usas Action = caFree) deberías cambiar la linea,
Código PHP:
 MDIChild1->BringToFront(); 
por:
Código PHP:
 MDIChild1->WindowState wsNormal
Muestra:

(ajusté los tamaños de los MDIChild para que no se solapen)

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 28-11-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Gracias por la respuesta. Básicamente era lo que estaba intentando, pero tengo una duda.

Yo ahora lanzo así los MDIChild:
Código PHP:
void __fastcall TfMenu::GesAfiClick(TObject *Sender)
{
     
Application->CreateForm(__classid(TfPersona), &fPersona);
     
fPersona->Show();

Sé que no es la forma más correcta, y de hecho me has añadido una aclaración que iba a preguntar en otro momento.Este código:

Cita:
Empezado por ecfisa Ver Mensaje
Código PHP:
void __fastcall TMDIForm::ToolButton1Click(TObject *Sender)
{
  if (!
MDIChild1)  // ( * )
    
MDIChild1 = new TMDIChild1(this);
  else
    
MDIChild1->BringToFront();
  
//...
  
CenterForm(MDIChild1);

¿Tendría que ponerlo antes del Show() que muestra el formulario?
Responder Con Cita
  #4  
Antiguo 28-11-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por Angel.Matilla Ver Mensaje
...
¿Tendría que ponerlo antes del Show() que muestra el formulario?
No necesariamente, en el ejemplo anterior el centrado se produce luego de los eventos OnCreate/OnShow de los MDIChilds.

El evento OnShow se dispara justo antes de que el formulario sea haga visible y recuerda que tratándose de MDIChilds, la propiedad Visible siempre tiene el valor true. Es decir, que es llamado de forma automática luego de la creación.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 28-11-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Muchas gracias. Ha funcionado a la perfección.

Última edición por Angel.Matilla fecha: 28-11-2018 a las 20:23:50.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Repintar Formulario Padre al Mover Formulario Modal juniorSoft FireMonkey 6 11-03-2017 21:23:30
Delphi XE deshabilitar colocacion de componentes KnoX_RuS Varios 2 30-08-2011 22:12:41
Cambiar propiedad de componente del formulario padre al cerrar el formulario hijo jzginez OOP 5 22-06-2007 22:40:51
Colocación alfabética de ch y ll mane Conexión con bases de datos 7 12-11-2006 21:01:55
¿Cómo calcular la mejor colocación de cajas? nesetru Varios 8 23-05-2004 12:44:19


La franja horaria es GMT +2. Ahora son las 02:53:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi