AutoResize controles

[ecfisa]

Hola vivamotos.

Probá si te sirve de este modo:

void __fastcall TForm1::FormShow(TObject *Sender)
{
 FIni_H = (double)Memo1->Height / Height;
 FIni_W = (double)Memo1->Width / Width;
}

void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth,
      int &NewHeight, bool &Resize)
{
  Memo1->Height = (int)NewHeight * FIni_H;
  Memo1->Width = (int)NewWidth * FIni_W;
}

FIni_H y FIni_W son variables de tipo double, privadas de Form1.

Saludos.