wobei du damit die anderen fgormatierungen wie kursiv kaputt machst....
ich habs mal so gelöst:
Delphi-Quellcode:
if fsbold in richedit1.SelAttributes.Style
then richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsbold]
else richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsbold];