reconocer resolucion de pantalla

[pablopessoa]

hola!! hay alguna manera de reconocer con delphi que resolucion de pantalla tiene la persona que corre mi aplicacion? si se puede reconocer... hay alguna forma de que delphi reacomode todo automaticamente a esa resolucion? o lo tengo que hacer a mano? como lo ajusto a mano?
gracias y espero en algun momento poder responder algo yo... soy nuevo en este lenguaje

[[xEsk]]

Hola, si es posible: Screen.Width y Screen.Height

Saudos.

[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)