Fórum Aumentar height e width do form #366449

Form1.Height:= 100;

  type
  TfrmPrincipal = class(TForm)
     .....
     .....
     procedure FormCreate(Sender: TObject); 
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
     { Private declarations }
      ....
      OldWidth, OldHeight: Integer;
      procedure SetScreenResolution(AWidth, AHeigth: Integer);
      ....
  public
     { Public declarations }
      .....
      .....
  end;

  var
     frmPrincipal: TfrmPrincipal;

  implementation

  uses DM;

  {$R *.dfm} 
  
  procedure TfrmPrincipal.SetScreenResolution(AWidth, AHeigth: Integer);
  var
      DevMode: TDeviceMode;
      Hnd: THandle;
  begin
      Hnd := GetDC(Handle);
      EnumDisplaySettings(nil, 0, DevMode);
      with DevMode do begin
          dmPelsWidth := AWidth;
          dmPelsHeight := AHeigth;
          dmBitsPerPel := GetDeviceCaps(Hnd, BITSPIXEL);
          dmDisplayFrequency := 60;
      end;
      ChangeDisplaySettings(DevMode, 0);
  end;

  procedure TfrmPrincipal.FormCreate(Sender: TObject);
  begin
  if (Screen.Width <> 1440) and (Screen.Height <> 990) then begin
    OldWidth := Screen.Width;
    OldHeight := Screen.Height;
    Mens := ´Este programa foi construído numa resolução de vídeo´ + #13;
    Mens := Mens + ´de 1440 X 990 Pixels e irá configurar a tela do seu monitor´ + 13;
    Mens := Mens + ´para esta resolução. Ao final do programa,´ + 13;
    Mens := Mens + ´a resolução atual retornará instantaneamente´;
    MessageBox(Self.Handle, PChar(Mens),´Ajuste de Vídeo´,MB_OK+MB_ICONWARNING);
    SetScreenResolution(1440, 990);
 end;
end;

  procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
  if (Screen.Width <> OldWidth) and (Screen.Height <> OldHeight) then
     SetScreenResolution(OldWidth, OldHeight);
  Application.Terminate;
  end;