Как можно предварительно просмотреть содержимое RichEdit

← →
Хрюша (2006-03-23 10:34) [0]

Добрый день, Мастера!
Подскажите пожалуйста как можно предварительно просмотреть содержимое компонента RichEdit. У меня все значения записываются из разных источников в один RichEdit, а мне необходимо следить за всеми изменениями. Как это можно реализовать?

← →
balepa © (2006-03-23 10:44) [1]

RichEdit.OnChange

← →
Хрюша (2006-03-23 10:49) [2]

Ой! А по подробнее можна:) ты не совсем-то понял, наверное, извини:)
Смотри: Есть RichEdit и много Edit-ов. В Edit-ы я что-то записываю и это должно все заноситься в RichEdit (или memo). Но - еть одно Но. RichEdit скрыт от глаз долой :) Но нужно чтобы открывалось типа в отдельном окне что-ли (не знаю как правильно сказать) и проверить - все ли на месте?
Вот что я задумал:)

← →
balepa © (2006-03-23 10:55) [3]

А я и сейчас не понял, можеш не извиняться
Edit.OnKeyDown, .OnKeyPress, .OnKeyUp ?

← →
Хрюша (2006-03-23 11:51) [4]

Нет. Мне необходимо, чтобы "измененный /вновь созданный" документ можно было просмотреть в отдельном окне в увеличенном виде. Типа Word. Предварительный просмотр (что и как).
На счет Edit.OnKeyDown, .OnKeyPress, .OnKeyUp - это дело понятное, но на форме, (ещё раз для вопроса) не виден RichEdit - он как бы "секретное место", куда записывается необходимая информация. Хотя понимаю, что можно импользовать TStringList для передачи параметров и только потом работать как c RichEdit (все кажется одно и тоже по свойствам). Но мне нужен именно такой подход, скажем так "без потери качества" :)

Может завести TStrigs и писать все твои строки туда. А когда нужно показать просто загружешь их в RichEdit.

Пример:
type TForm1 = class(TForm) Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; RichEdit1: TRichEdit; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } FStrings: TStrings; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FStrings := TStringList.Create; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FStrings.Free; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin FStrings.Add(Edit1.Text); // Добовляем из Edit"а end; procedure TForm1.BitBtn2Click(Sender: TObject); begin RichEdit1.Lines.AddStrings(FStrings); // Показываем строки наRichEdit"е end;

← →
Хрюша (2006-03-23 12:26) [6]

Во! Это то что мне нужно! Большое спасибо за помощь!

Как можно предварительно просмотреть содержимое RichEdit Найти похожие ветки