Скачать: CL | DM;

синхронное прокручивание 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c