Hola.
Probá lo siguiente:
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;
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.