Ajusar Position Form en movimiento Tablet
 

Amigos

Estoy haciendo un Programa, que funciona con una tablet, ahora bien los modulos funcionan bien , solo que al mover la tablet y se gira la pantalla, el formulario se queda en otra posicion. Tengo una idea, creo que deberia ser mas o menos asi

Evento MovimientoPantalla de Windows
begin
Form.position := poDesktopCenter;
end

Bueno algo asi, el tema es que no se como ni si existe, o algo para tratar de llamar a ese evento de windows, alguien me puede ayudar. O alguna otra solucion

Gracias

Hola.

Revisa si estos enlaces te pueden orientar:

• autoRotationPreferences property
• Handling Windows 8 Auto-rotate feature in your application
• How to prevent the screen from automatically rotating on a tablet

Saludos.

Como se llama evento
 

Amigos, he tratado de averiguar el nombre del evento de windows, que es el cambio de tamaño de pantalla, pero no encuentro nada....lo que trato de hacer, es que al momento en que cambie de tamaño mi formulario lo ubique en cierto lugar

me imagino algo asi

If Evento 'Cambio de tamaños screen' = true then

ubico mi formulario

else

lo ubico en otro lado

algo asi, me captan , bueno gracias a los que me puedan ayudar


Chaus

Mi Solucion...
 

Al final que fue lo que hice,

Agregue un Edit, un timer y seria

el edit hace esto

Código Delphi [-]
procedure TFR_SelectorInOut.Timer1Timer(Sender: TObject);
var
  DC: THandle;    // display context
  Bits: Integer;    // bits per pixel
  HRes: Integer;    // horizontal resolution
  VRes: Integer;    // vertical resolution
  fre: Integer;    // refresh rate
begin
  DC := GetDC(Handle);
  Bits := GetDeviceCaps(DC, BITSPIXEL);
  HRes := GetDeviceCaps(DC, HORZRES);
  VRes := GetDeviceCaps(DC, VERTRES);
  fre := GetDeviceCaps(DC, VREFRESH);
  // Show Current Resolution
  TX_TamPan.Text := Format('%d bit, %d x %d', [Bits, HRes, VRes]);
end;

y en el evento change de TX_TamPan (...el Edit),

Código Delphi [-]
 Left:=(Screen.Width-Width)  div 2;
  Top:=(Screen.Height-Height) div 2;

Fue lo que se me ocurrio, bueno por lo menos sali del paso...Chaus:eek: