|
<< Нажмите, чтобы показать Содержание >> Пример: использование методов быстрого изменения документа в TDBRichViewEdit |
Этот пример показывает, как использовать
методы быстрого изменения документа в 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) требуется только для
методов быстрого изменения документа.
Методы редактирования документа работают автоматически:
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
DBRichViewEdit1.InsertRTFFromFileEd(OpenDialog1.FileName);
end;