Вопрос по использованию компонента RichEdit

[le7o]

Добрый день.

Подскажите пожалуйста каким образом можно форматировать текст в выделенном (setfocus) RichEdit (их на форме несколько)?

Некое подобие одной панели с кнопками (жирный, курсив, цвет текста и.п.) для нескольких RichEdit на форме.

[Stilet]

Ну править свойство SelAttributes конечно же...

if ActiveControl is TRichEdit then with TRichEdit(ActiveControl).SelAttributes do begin
 И понеслась править атрибуты...
end;

[SQLPowerUser]

Для загрузки файлов > 64 Кб, надо установить RichEdit1.MaxLength := $7FFFFFF0;
Полезные ссылки
http://delphisite.ru/faq/vizualnye-komponenty/trichedit
http://articles.org.ru/cn/?c=101

[le7o]

Сообщение от Stilet

Ну править свойство SelAttributes конечно же...

if ActiveControl is TRichEdit then with TRichEdit(ActiveControl).SelAttributes do begin
 И понеслась править атрибуты...
end;

Не совсем понял по использованию делаю допустим такой код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
if ActiveControl is TsRichEdit then
  with TsRichEdit(ActiveControl).SelAttributes do
  begin
   Style:=[fsbold];
  end;

end;

На форме три richedit и не срабатывает.

[Аватар]

Удобный способ при нескольких ричэдитах - в ActionList набросать стандартных Action-ов из группы Format. На них нацелить бесфокусные кнопки типа SpeedButton. Без всякого обработчика при клике по такой кнопке будет форматироваться ричэдит, имеющий фокус ввода

[le7o]

Аватар, спасибо действительно при использовании SpeedButton способ предложенный Stilet работает на ура.

Аватар, Ваш способ тоже подходит))