Resolución de la pantalla

[ecfisa]

Hola.

Probá lo siguiente:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int  Ancho=1024, Alto=768; /* Resolución en que compilás la aplicación */

  if(Screen->PixelsPerInch == 96){
    Height = Height * Screen->Height / Alto;
    Width =  Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }
  else if(Screen->PixelsPerInch == 120){
    Height = Height * Screen->Height / Alto;
    Height = Height + ((Height*15) / 100);
    Width = Width * Screen->Width / Ancho;
    Width = Width + ((Width*15) / 100);
    ScaleBy(Screen->Width, Ancho);
    Top = Top - 70;
    Left = Left - 70;
  }
  else {
    Height = Height * Screen->Height / Alto;
    Width = Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }
}

Saludos.

[washiloo]

Empezado por ecfisa

Hola.

Probá lo siguiente:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int  Ancho=1024, Alto=768; /* Resolución en que compilás la aplicación */
 
  if(Screen->PixelsPerInch == 96){
    Height = Height * Screen->Height / Alto;
    Width =  Width * Screen->Width / Ancho;
  }
  else if(Screen->PixelsPerInch == 120){
    Height = Height * Screen->Height / Alto;
    Height = Height + ((Height*15) / 100);
    Width = Width * Screen->Width / Ancho;
    Width = Width + ((Width*15) / 100);
    ScaleBy(Screen->Width, Ancho);
    Top = Top - 70;
    Left = Left - 70;
  }
  else {
    Height = Height * Screen->Height / Alto;
    Width = Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }
}

Saludos.

Muchas gracias por tu respuesta. Tendría que hacer esto con la altura y ancho de cada objeto de mi formulario?

[ecfisa]

Tendría que hacer esto con la altura y ancho de cada objeto de mi formulario?

Hola washiloo.

No, sólo en el form principal.

Un saludo.