Código Delphi [-]// Redimensiona la aplicación en base a la resolución de la pantalla. ScaleBy(Screen.WorkAreaHeight*Width Div Height, Width); Height:= Screen.WorkAreaHeight; Left:= (Screen.Width - Width) Div 2; BorderIcons:= BorderIcons - [biMaximize]; Top:= 0;
// Redimensiona la aplicación en base a la resolución de la pantalla. ScaleBy(Screen.WorkAreaHeight*Width Div Height, Width); Height:= Screen.WorkAreaHeight; Left:= (Screen.Width - Width) Div 2; BorderIcons:= BorderIcons - [biMaximize]; Top:= 0;