ajustar componentes en form

[Rofocale]

Hola alguien me podria decir como hacer para que todos los componentes que estan dentro del form principal se ajusten al tamaño de pantalla dependiendo si tambien quiero maximizar el form o redimenzionar el form en tiempo de ejecucion.... y si quiero cambiar de pantalla que esta tambien se adapte a esta pantalla..
alguien me puede ayudar ? porque ayer estuve probando mi programa en una pantalla de 21'' y se descuadraba muchas cosas y el programa lo hice con una pantalla de 19''

bueno gracias
espero me ayuden

[Galahad]

Este problema se ha comentado muchas veces en el foro, te recomiendo que hagas pruebas con la propiedad 'Anchors' de los componentes, utiliza el buscador del foro, por ejemplo aqui se trata este tema.

Saludos...

[Rofocale]

he probado la propiedad anchors y tambien en algunos posts que encontre en este foro el codigo que encontre lo utilize pero sin tener exito, se resescala un poco pero igual sigue viendose feo..

he visto programas muy simples y todos funcionan para cualquier resolucion.. y no puedo encontrar nada adecuado para poder hacerlo con mi aplicacion

alguien me ayuda ? alguien que halla hecho un programa en delphi que se ajuste a cualquier resolucion.. y cuando se resscale tambien se reescale sin que los componentes se escondan ?

gracias espero ayuda..

[ecfisa]

Hola.

Con una busqueda en el foro con la palabra 'redimensión', encontré estos temas relacionados a componentes:
LINK 1
LINK 2
LINK 3
LINK 4
LINK 5

No son todos, la búsqueda me arrojó 146 páginas...


Saludos.

[Rofocale]

hola ecfisa probe tu codigo

Código Delphi [-]
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var
  i:Integer;
begin
  for i:= 0 to ComponentCount - 1 do
  begin
    TControl(Components[i]).Left:= Round(NewWidth * TControl(Components[i]).Left / Width);
    TControl(Components[i]).Top:=  Round(NewHeight * TControl(Components[i]).Top / Height);
  end;
end;

y me da error access violation
estoy usando delphi 2010

[ecfisa]

Hola Rofocale.

Yo uso Delphi 7 y por supuesto no me dá ese error. No sé que pueda estar pasando, no creo que Delphi 2010 haya
cambiado tanto como para no aceptar un código tán simple. Supongo que las propiedades TForm.ComponentCount y
TForm.Components debe soportarlas.

Fijate así, sólo para probar, por que sinceramente no tengo idea de Delphi 2010.

Código Delphi [-]
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var
  i:Integer;
begin
 for i:= 0 to Self.ComponentCount - 1 do
  begin
    TControl(Self.Components[i]).Left:=
      Round(NewWidth * TControl(Self.Components[i]).Left / Self.Width);
    TControl(Self.Components[i]).Top:=
      Round(NewHeight * TControl(Self.Components[i]).Top / Self.Height);
  end;
end;

De todos modos este código ajusta las posiciones de los componentes, no el tamaño.

Saludos.