AnimateWindow() y Position=poDesktopCenter

[[escafandra]]

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:

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
  // Centro la ventana... 
  if(Position == poScreenCenter){
     Left = (Screen->Width - Width)/2;
     Top  = (Screen->Height - Height)/2;
   }
   AnimateWindow(Handle, 400, AW_ACTIVATE | AW_SLIDE | AW_HOR_POSITIVE);
}

Por cierto, no se si fue un error tipográfico o no, de todas formas aclaro que el operador or binario es una sola barra |. El or lógico son dos ||

Saludos.

[aams01]

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?

[aams01]

Gracias por Todo

Soy un mentiroso de lo peor ya funciona con una modificacion

Left = (Screen->Width - Width)/2;
     Top  = (Screen->Height - Height)/2;
	AnimateWindow( Handle, 400, AW_BLEND);

con solo retirar el if, y en modo diseño poner la position = poDesigned

[[escafandra]]

Empezado por aams01

Gracias por Todo

Soy un mentiroso de lo peor ya funciona con una modificacion

Left = (Screen->Width - Width)/2;
     Top  = (Screen->Height - Height)/2;
	AnimateWindow( Handle, 400, AW_BLEND);

con solo retirar el if, y en modo diseño poner la position = poDesigned

No me di cuenta de este mensaje tuyo previo a mi respuesta...
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

[[escafandra]]

Empezado por aams01

Con respecto al problema sigue haciendo lo mismo aun después de poner tu código alguna sugerencia?...mmm, pues es curioso porque lo he probado en dos PCs con Builder 5 y en uno funciona como se esperaba y en el otro no.

Usemos pues la API:

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  // Centro la ventana...
  SetWindowPos(Handle, HWND_TOP, (Screen->Width - Width)/2, (Screen->Height - Height)/2, 0, 0, SWP_NOSIZE);
  AnimateWindow(Handle, 400, AW_ACTIVATE | AW_SLIDE | AW_HOR_POSITIVE);
}

Empezado por aams01

...Left = (Screen->Width - Width)/2; sin necesidad de decir que es Form1->Left
A como se le llama este uso y como funciona?

Eso es posible porque estamos en un método de la clase TForm1, el compilador sobreentiende que Left es Form1->Left. Desde un método ajeno a la clase no se puede hacer.

Quizás te interese esto como alternativa a AnimateWindow

Saludos.