Пример: использование методов быстрого изменения документа в TDBRichViewEdit

<< Нажмите, чтобы показать Содержание >>

Пример: использование методов быстрого изменения документа в TDBRichViewEdit

Этот пример показывает, как использовать viewerstyle методы быстрого изменения документа в TDBRichViewEdit (то есть методы, объявленные в TCustomRichView).

Пусть DBRichViewEdit1 редактирует таблицу Table1. Мы хотим загрузить файл RTF.

procedure TForm1.Button1Click(Sender: TObject);

begin

  if OpenDialog1.Execute and DBRichViewEdit1.CanChange then

  begin

    DBRichViewEdit1.Clear;

    DBRichViewEdit1.LoadRTF(OpenDialog1.FileName);

    DBRichViewEdit1.Change;

    DBRichViewEdit1.Format;

  end;

end;

Вызов CanChange приводит к вызову Table1.Edit.

Если вы хотите сохранить изменения сразу, вызовите Table1.Post вместо DBRichViewEdit1.Format.

Эта последовательность шагов (CanChange - изменения - Change - Format) требуется только для viewerstyle методов быстрого изменения документа.

editstyle Методы редактирования документа работают автоматически:

procedure TForm1.Button2Click(Sender: TObject);

begin

  if OpenDialog1.Execute then

    DBRichViewEdit1.InsertRTFFromFileEd(OpenDialog1.FileName);

end;