| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно предварительно просмотреть содержимое RichEdit [D7, XP]

Хрюша ©   (2006-03-23 10:34:00) 

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

---

Хрюша   (2006-03-23 12:26:00) [1]

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

---

Kolan   (2006-03-23 12:17:00) [2]

Может завести 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 11:51:00) [3]

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

---

balepa   (2006-03-23 10:55:00) [4]

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

---

Хрюша   (2006-03-23 10:49:00) [5]

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

---

balepa   (2006-03-23 10:44:00) [6]

RichEdit.OnChange

---

Наверх