void __fastcall TMemoForm::Font1Click(TObject *Sender)
{
  if(FontDialog1->Execute()) {
    RichEdit1->SelAttributes->Color = FontDialog1->Font->Color;
    RichEdit1->SelAttributes->Charset = FontDialog1->Font->Charset;
    RichEdit1->SelAttributes->Size = FontDialog1->Font->Size;
    RichEdit1->SelAttributes->Style = FontDialog1->Font->Style;
    RichEdit1->SelAttributes->Name = FontDialog1->Font->Name;
    RichEdit1->SelAttributes->Pitch = FontDialog1->Font->Pitch;
    RichEdit1->SelAttributes->Height = FontDialog1->Font->Height;
  }
}

위의 메시지헨들러는 richedit control에서 오른쪽버튼누를때 나오는 메뉴를 만들어서 거기서 "font"라는 메뉴아이텀을 클릭할 때 실행되도록 한 코드입니다.
그런데 이게 코드가 길죠.
위에서 하나하나 다 설정해주는 것을 단 한번에 RichEdit1->..... = FontDialog1->Font; 이런 식으로 단 하나 문장으로 대채할 수는 없나요?