问题2：
还是那个按钮，如果在程序中调整了字体，怎么让按钮的边界随着字体大小的改变自动调整大小呢
//////////////

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(FontDialog1->Execute()==true)
{
Button1->Font=FontDialog1->Font;
Button1->Height=int(25*((float)FontDialog1->Font->Size/(float)8));
Button1->Width=int(75*((float) FontDialog1->Font->Size/(float)8));
}
}


多谢指导，但还有些地方弄不清楚：
标记为红色的表达式，可以解释一下么。 为什么选择25和75这两个参数，以及Size为什么除以8
谢谢