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

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

синхронное прокручивание 2х RxRichEdit'ов

self ©   (2009-01-01 05:56:00) 

Здравствуйте.
и с Новым Годом вас=)
а вопрос мой в теме - как можно организовать синхронное прокручивание 2х ричедитов?
дело в том, что в одном из них записаны даты сообщений, а во втором сами сообщения)
может это можно организовать как то более по-разумному..но я не придумал)
потому подскажите или как синхронно крутить их или как решить эту задачу иным путём.
спасибо

---

self   (2009-01-01 23:58:00) [1]

большое спасибо.

---

Smile   (2009-01-01 10:56:00) [2]

Например, можно так:

....
private
   { Private declarations }
   REproc1, REproc2: TWndMethod;
   procedure NewProc1(var msg: TMessage);
   procedure NewProc2(var msg: TMessage);

.........

procedure TForm1.NewProc1;
begin
 case msg.Msg of
   WM_VSCROLL,
   WM_KEYFIRST..WM_KEYLAST,
   WM_MOUSEFIRST..WM_MOUSELAST:
     REproc2(msg);
 end;
 REproc1(msg);
end;

procedure TForm1.NewProc2;
begin
 case msg.Msg of
   WM_VSCROLL,
   WM_KEYFIRST..WM_KEYLAST,
   WM_MOUSEFIRST..WM_MOUSELAST:
     REproc1(msg);
 end;
 REproc2(msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 REproc1 := RichEdit1.WindowProc;
 RichEdit1.WindowProc := NewProc1;
 REproc2 := RichEdit2.WindowProc;
 RichEdit2.WindowProc := NewProc2;
end;

Но, мне кажется, что более разумным здесь будет использование не RichEdit-ов, а чего-нибудь типа ListBox

---

Наверх