procedure
TForm1
.
BoldClick(Sender: TObject);
var
NewRichEdit: TRichEdit;
begin
NewRichEdit
SelAttributes
Style:=[fsBold];
RichEdit1
end
;
Сайт
Форум
FAQ
Соглашения
Прочее