AnimateWindow() y Position=poDesktopCenter
Hola cada dia un nuevo problema perdón si parece que soy dependienta, pero por mas que le busco no encuentro.
Mi problema en cuestión es el siguiente. Necesito la Forma en el puro centro de la pantalla por lo cual hago lo sig. en forma de diseño pongo la opción de la forma en position=poDesktopCenter Cuando se muestra la forma tengo los efectos de AnimateWindow() el siguiente codigo Código:
Randomize(); aparece la forma en un lugar diferente al de poDesktopCenter (aparece en el lugar de diseño) después hace el efecto que corresponde y por ultimo centra la ventana Quisiera centrar primero y despues efecto se podra? |
El problema es que Builder coloca como posición inicial la de diseño. Cuando seleccionas poScreenCenter Builder cambia a esa posición y luego muestra el Form. A nuestros ojos la ventana se creó en el centro aunque en realidad no fue así.
Para solventar el problema deberás colocar el Form donde te interesa (aunque no sea visible de momento) y luego aplicar AnimateWindow. Te muestro un ejemplo simple: Código:
__fastcall TForm1::TForm1(TComponent* Owner) Saludos. |
Con respecto al problema sigue haciendo lo mismo aun después de poner tu código alguna sugerencia?
Muy cierto eso de || fue error de escritura. Otra pregunta yo había visto Left = (Screen->Width - Width)/2; sin necesidad de decir que es Form1->Left A como se le llama este uso y como funciona? |
Gracias por Todo
Soy un mentiroso de lo peor ya funciona con una modificacion Código:
Left = (Screen->Width - Width)/2; |
Cita:
Código:
__fastcall TForm1::TForm1(TComponent* Owner) Cita:
Quizás te interese esto como alternativa a AnimateWindow Saludos. |
Cita:
Bueno, el condicional es para que se centre solo si Position es poScreenCenter. Si lo quieres centrar siempre, de todas todas, pues lo retiras y listo. Mira mi mensaje anterior, la API suele ser una buena opción. Saludos |
La franja horaria es GMT +2. Ahora son las 17:42:07. |
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