关于MAINMENU菜单控件的用法问题，判断checkde属性问题

Question

我编写了一个记事本，现在要实现一个功能：
一段文字，选中几个字设置为粗体后，在菜单上就会有个“勾”，再按一下，就会取消粗体，“勾”也会消失，选中另外的没有设置粗体的文字，就没有显示“勾”，按一下，便会把字体设为粗体，也会在菜单上显示“勾”，大概就是这样。          
帮忙啊！谢谢

Answer 1

同一话题何必发多个贴子？浪费自己的可用分。看一下 Delphi目录下的Demos\RichEdit示例。然后再找一下如何设置MainMenu的MenuItem的Checked属性。就OK了。

Answer 2

procedure TForm1.Bold1Click(Sender: TObject);
begin
  if Bold1.Checked then
     begin
     Bold1.Checked := false;
     RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
     end
     else
     begin
     Bold1.Checked := True;
     RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];
     end;
end;procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  Bold1.Checked := fsBold in RichEdit1.SelAttributes.Style;
end;