reconocer resolucion de pantalla

[DarkMan]

Normalmente los componentes tienen la propiedad align que permite ajustarse al tamaño de la forma, incluso con los cambios de tamaño. Seguramente cuando dices

hay alguna forma de que delphi reacomode todo automaticamente a esa resolucion? o lo tengo que hacer a mano? como lo ajusto a mano?

supongo que te refieres a algunos componentes como TButton o TEdit que carecen de esa propiedad. En los TEdit puedes usar "Anchors" para que se autoreajuste al tamaño cuando se realizan cambios. En los TButton tendrás que usar el evento OnResize y ajustar su tamaño/posición a mano.

[pablopessoa]

lo voy a probar, muchas gracias!!

[dec]

Hola,

Empezado por DarkMan

En los TEdit puedes usar "Anchors" para que se autoreajuste al tamaño cuando se realizan cambios. En los TButton tendrás que usar el evento OnResize y ajustar su tamaño/posición a mano.

De hecho "Anchors" se implementa ya en "TControl", y, cualquier componente derivado de este podría publicar dicha propiedad: los "TButtons" también lo hacen, pero, igual puede decirse en general que lo hacen todos los componentes visuales.

[pablopessoa]

hola, gracias por responderme tan rapido
estoy probando las cosas que me dijero pero no me funciona bien o yo lo estoy haciendo mal
el tamaño de mi boton por ejemplo es width =158 entonces calcule que lo tengo que reducir un 70 % (lo multiuplico por 0.7) pero me lo reduce muchisimo, me deja un cuadradito nada mas.
te muestro el codigo con el que lo hago

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
x,y,I:integer;
begin
      x:=screen.Width;
      y:=screen.Height;
      if ((x<1024)and (y<768)) then
      begin
          form1.Width:= round (form1.Width *0.8);
          form1.Height:= round (form1.Height *0.8);

          for I := 0 to form1.ComponentCount - 1 do
          begin
              if (form1.Components[i] is TButton) then
                begin
                   tbutton(form1.Components[i]).Width:= Round (tbutton(form1.Components[i]).Width* 0.9);
                   tbutton(form1.Components[i]).Width:= Round (tbutton(form1.Components[i]).Height* 0.9);
                end;

(perdon por el post largo)

[pablopessoa]

perdon olvide decir que esta en 1155 x 864 y lo quiero pasar a 800x600

[dec]

Hola,

Como norma general, no debes necesitar sino usar las propiedades "Align" y "Anchors" de los componentes. Sobre todo esta última te permite especificar cómo ha de situarse y adaptarse un determinado control en el formulario: independientemente del tamaño de dicho formulario, al menos hasta cierto punto: si un formulario es demasiado pequeño es evidente que no cabrán los controles, los pongas como los pongas. Pero, ya digo, en general, con las propiedades referidas sería suficiente para adaptar tus formularios y sus controles a distintos tamaños del formulario. Estúdialas y verás que no necesitas hacer cálculos más o menos peregrinos para conseguir lo que quieres. O mucho me equivoco.

Edito: Te adjunto un sencillo ejemplo a ver si se aproxima a lo que necesitas. Fíjate que no se usa código para posicionar los componentes, sino sólo sus propiedades "Anchors".

[pablopessoa]

disculpa que este tan molesto... pero no la pego con esas propiedades... no logro que me queden bien...
probe este codigo que busque en internet en el oncreate del form

Height := Height * Screen.Height div alto;
Width := Width * Screen.Width div ancho;
ScaleBy(Screen.Width, ancho);

y si bien acomoda el formulario y el tamaño de las componentes y las letras... no acomoda la posicion de los componentes...

la verdad es un tema que esta volviendo loco...

[dec]

Hola,

Pues te conviene hacer pruebas con esas propiedades, antes, digo, de buscarle tres pies al gato. Si no te apañan al final, igual entonces es menester otro tipo de solución. ¿Viste el ejemplo que adjunté en mi anterior mensaje? Los componentes y su tamaño se adaptan a la pantalla... ¿no? Por otro lado, considero más sencillo desarrollar "a lo pequeño" y no "a lo grande". Porque lo pequeño cabe en lo grande, pero, lo grande acaso no quepa en lo pequeño, o no como tú esperarías. No sé. Si tratas de concretar algo más igual puede ayudársete un poco mejor. Para empezar, ¿podrías adjuntar algún proyecto que nos sirva de punto de partida?