redimensionar forms

[anubis]

Gracias eficsa, pero no veo muy bien el detalle, ya probe el codigo que pusiste:

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject); const   Alto= 768;       // 768, ...   Ancho= 1024;  // 1366, ... begin   if Screen.PixelsPerInch = 96 then   begin    Height := Height * Screen.Height div Alto;    Width := Width * Screen.width div Ancho;    ScaleBy(Screen.Width,Ancho);  end  else if Screen.PixelsPerInch = 120 then  begin    Height := Height *Screen.Height div Alto;    Height := Height+((Height*15) div 100);    Width := Width * Screen.Width div Ancho;    Width := Width+((Width*15) div 100);    ScaleBy(Screen.Width,Ancho);    Top := Top - 70;    Left := Left - 70;   end   else   begin     Height := Height * Screen.Height div Alto;     Width := Width * Screen.width div Ancho;     ScaleBy(Screen.Width,Ancho);   end; end;

Estoy probando sobre un windows xp virtualbox cambiando la resolucion y no funciona bien.
No se si es lo que se pretendia, pero desgraciadamente, lo que yo queria es que un proyecto realizado primeramente para pantallas algo grandes y que se ve bien, ahora que tengo que pasarlo a otra computadora con pantalla de resolucion mas pequeña, me lo escale como si fuera la grande, es decir, que se vea a razon de la pantalla sin tener que rediseñar de nuevo todo el form.

Si, cierto, y repito que teneis razon en otro post, que esas cosas se preveen porque luego pasa lo que pasa.