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

← →
self (2009-01-01 05:56) [0]

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

← →
Smile (2009-01-01 10:56) [1]

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

.... 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

← →
self (2009-01-01 23:58) [2]

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

синхронное прокручивание 2х RxRichEdit ов Найти похожие ветки