Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизСинхронизация 2-х Memo Найти похожие ветки
← →
ORMADA © (2004-03-12 12:57) [0]Как синхронизировать №-ра строк в 2-х мемо.
т.е. если в одном произшло скролирования во втором произошло бы тож самое.
т.е. №текущей строки в 2-х мемо должен стать одинаковым
← →
ORMADA © (2004-03-12 13:00) [1]можно даже не мемо а listbox
← →
ЫЗШКШЕ (2004-03-12 13:05) [2]listbox2.ItemIndex:=listbox1.ItemIndex;
← →
Романов Р.В. © (2004-03-12 13:06) [3]MBo © (18.11.02 06:48)
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c