Синхронизация работы 2-x Memo

← →
Анастасия (2002-11-17 11:12) [0]

Здравствуйте! Подскажите, пожалуйста! На форме 2 Memo - хотелось бы, чтобы когда изменяется текущая позиция курсора в одном, во втором курсор бы тоже перемещался на эту строку. Заранее спасибо большое.

← →
Николай Быков © (2002-11-17 11:46) [1]

> Анастасия (17.11.02 11:12)

Неа. Не понял я тебя. Скажи еще раз

← →
PaRL © (2002-11-17 12:06) [2]

CaretPos

← →
Николай Быков © (2002-11-17 12:08) [3]

> PaRL © (17.11.02 12:06)
> CaretPos

Это было первое о чем я подумал. Но давай все же послушаем что нам скажет Анастасия. Мне кажется, что мы подумали не о том, что она хочет услышать от нас

← →
Анастасия (2002-11-17 15:28) [4]

Хотелось бы, чтобы когда в одном мемо пользователь ставит курсор на n-ую строку, на ту же n-ую строку ставился бы курсор и во втором мемо. Плюс в каждом мемо есть сколлбары - хотелось бы чтоб и они соответственно перемещались. Надеюсь, теперь вопрос более понятен, если нет - скажите, что именно непонятно.

← →
Николай Быков © (2002-11-17 16:26) [5]

> Анастасия (17.11.02 15:28)

А как ты себе это представляешь?
Когда ты работаешь с одним мемо, то этот курсор в нем, а когда с другим, то курсор во втором.
Даже если и поставить курсор куда-нибудь во втором мемо, то когда ты щелкнешь на нем, то курсор переместится туда, где ты щелкнула!

Короче либо я тебя не понимаю, либо ...............

← →
Анастасия (2002-11-17 16:43) [6]

Ну да, в общем, плохо я выразилась :-)
Курсор тут собственно вообще ни причем. Он один для всех :-)
Надо чтоб когда в одном мемо дергают скролл, во втором чтоб он тоже дернулся до этого же места :-) Уф, сама запуталась объяснять :-) Расскажу идею тогда, чтоб понятней было. В этих мемо - одна и та же информация, представленная по-разному, причем
каждой строке memo1 соответствует та же строка memo2. Так вот очень бы хотелось, чтобы пользователь мог одновременно видеть, как эта строка выглядит в memo1 и как в memo2, а этому мешают scrollbar"ы, которые работают несинхронно. Вот в этом вся проблема. Если и это сочинение непонятно, тогда, наверное, эта проблема в принципе неразрешима :-)

← →
Николай Быков © (2002-11-17 17:13) [7]

Можна! Я щас попробывал!
Тебе сказать куда посмотреть как это мона сделать или ты не заглянешь туда?
ЗЫ
Это не статься/исходник, а хелп, такое страшное для многих новичков слово.
Могу дать там адреса, но это только, если ты туда смотреть будешь.
ЗЗЫ
А тебе интересно как я проверю смотрела ты или нет? Ты мне будешь должна показать исходник, где ты с этим справилась способом из хелпа

← →
Shadow © (2002-11-17 18:34) [8]

2Анастасия
А не легче ли сделать это ListBox"ами?

ООООО! Устроили блин. КУРСОР и КАРЕТКА - разные вещи.
Я сразу понял про что она говорит - про каретку, так как курсор и там и там не может быть!

CaretPos

private
OldProc:TWndMethod;
procedure NewProc(var m:TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc:=Memo1.WindowProc;
Memo1.WindowProc:=NewProc;
end;

procedure TForm1.NewProc(var m: TMessage);
begin
if (m.Msg=wm_vscroll) or (m.Msg=wm_hscroll)
or (m.Msg=wm_keydown) or (m.Msg=wm_keyup) then begin
//еще wm_char можно отслеживать
SendMessage(memo2.Handle,m.msg,m.wparam,m.lparam);

// memo2.selstart:=memo1.selstart;
// при необходимости
end;
OldProc(m);
end;

← →
Анастасия (2002-11-18 11:50) [11]

Спасибо большое всем ответившим, но больше всех, конечно, MBo, ибо его ответ оказался самым полезным :-)
На будущее всяким товарищам Быковым советую больше внимания уделять ОТВЕТУ на вопрос, а не издевательствам над бедными девушками :-Р

Синхронизация работы 2-x Memo Найти похожие ветки