系统字体

 
 
void __fastcall TForm1::ComboBox1DropDown(TObject *Sender)
{
  ComboBox1->Items= Screen->Fonts;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  Memo1->Font->Name=ComboBox1->Text;
}
 




posted @ 2012-06-03 17:52  XE2011  阅读(129)  评论(0)    收藏  举报