[lmpadron]

Hola Amigos

Me parece que es mi turno de postear el archiconocido problema de la resolución de pantalla, sucede que tengo el problema típico, mi aplicación desarrollada sobre 1024x768 y mis clientes sobre cualquier otra resolución a ellos les encanta ver como me supero dia a dia XD !!!
Estube buscando en los foros del club y encontré muchas respuestas para delphi (que no entendí) y una sobre builder del amigo ecfisa en este post con este código

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);
  }
}

Pensé que podría solucionar el problema siguiendo los ejemplo y las indicaciones de ese post pero sucede que aunque lo pongo en el FormCreate del MainForm no me funciona. Alguna sugerencia ?

Gracias de antemano