Resolucion de pantalla

[fidel]

Con esto puedes saber la resolución y cambiarla, adaptalo a tus necesidades

En este código se mira si es 800, 660 en cuyo caso se sube a 1024, 768 y después al terminar se deja como estaba

No se lo que ocurre si la tarjeta no soporta la resolución nueva, prueba tu mismo.

Código Delphi [-]
    { Public declarations }
  end;

var
  FMenu: TFMenu;
  W, H : integer;  //para coger resolución
  spCambioResolucion: string;  //para cambiar resolución

implementation

Uses UDM;

{$R *.dfm}

function NuevaRes(XRes, YRes: DWord): Integer;
var
  lpDevMode : TDeviceMode;
begin
  EnumDisplaySettings (nil, 0, lpDevMode);
  lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  lpDevMode.dmPelsWidth := XRes;
  lpDevMode.dmPelsHeight := YRes;
  NuevaRes := ChangeDisplaySettings (lpDevMode, 0)
end;

En OnCreate para cambiarla

Código Delphi [-]
procedure TFMenu.FormCreate(Sender: TObject);
begin
  //coger resolución de pantalla
  W := Screen.Width;
  H := Screen.Height;
  spCambioResolucion := 'No';
  //si es 800 por 600 se cambia a 1024 por 768 y se anota el cambio
  if (W = 800) and (H = 600) then
    begin
      NuevaRes(1024, 768);
      spCambioResolucion := 'Si';
    end;
end;

En OnClose para dejarlo como estaba

Código Delphi [-]
procedure TFMenu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //si se cambio la resolución que había de 800 por 600 volver a poner 800 por 600
  if spCambioResolucion = 'Si' then
    NuevaRes(800, 600);
end;

[[Lepe]]

¿Quien somos nosotros para decirle al usuario cómo ha de ver las cosas?

Esa es mi modesta opinión. Eso sin entrar en detalles de minúsvalías físicas.

En resumen, lo ya dicho, hacer las pantallas a un mínimo de tamaño que juzguemos oportuno según nuestros clientes, (hoy día uso 800x600 o 1024x768) con aligns, anchors y constraints. Una vez se maximiza, el usuario verá otra cosa.

También podemos dar la posibilidad al usuario de ocultar o mostrar más paneles (usando dock/frames). Si usa una pantalla ancha puede añadir más paneles verticales. El programa recuerda los paneles adosados y los muestra siempre al crear la ventana.

[Casimiro Noteví]

Empezado por Lepe

¿Quien somos nosotros para decirle al usuario cómo ha de ver las cosas?[..]

Estoy de acuerdo con eso, si instalo un programa que me modifique la resolución de mi pantalla... lo desinstalo al momento.

[fidel]

>>>>¿Quien somos nosotros para decirle al usuario cómo ha de ver las cosas?

Cuando no haces un programa a medida, siempre es el programador el que decide todo: color, aspecto, botones, etc, etc, etc.

Los usuarios estamos siempre supeditados a lo que nos hagan, y si no intenta por ejemplo comprar hoy en día un monitor o portatil que no tenga la pantalla panorámica, verás que dificil es, y dentro de poco será imposible.

Además puede haber casos particulares en que viene bien cambiarla, por ejemplo yo uso dos o tres aplicaciones personales en el lápiz que a veces pincho en ordenadores con resolución 800 x 600, lo detectan cambian la resolución a mi gusto, y lo vuelvo a dejar como estaba.

[mamcx]

Si te quieres ahorrar el trabajo, mira a http://www.devexpress.com/Products/VCL/ExLayoutControl/. Es lo mejor que conozco para estos menesteres.

De lo contrario, ahi codigo por ahi que re-dimensiona los controles de acuerdo a la resolucion. En las versiones nuevas de delphi (Delphi 2007+) esta el layout manager que es la version del pobre de lo de DevExpress, pero nada parecido en la facilidad de uso.