VPF::Прокрутка двух TMemo или TRichEdit - Форум программистов

sunnmas

Дата 25.2.2010, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.4.2009

Репутация: нет
Всего: нет

На другом форуме:

Цитата

Подскажите, как в Delphi мне сделать такое:
есть два поля TMemo одинакового размера с вертикальной прокруткой.
нужно сделать так, чтобы когда прокручиваешь мышкой или тянешь бегунок в одном из полей, во втором прокручивалось бы все так же?

Цитата

Нужно породить наследника от TMemo у и него перекрыть два сообщения

procedure WMVScroll(var Msg :TMessage); message WM_VSCROLL;
procedure WMHScroll(var Msg :TMessage); message WM_HSCROLL;

Эти сообщения отвечают за скрол контрола... по ним Вы сможете отслеживать скрол своего контрола и далее скролить второй TMemo

Код


procedure TMasterMemo.WMVScroll(var Msg : TMessage); 
begin 
  inherited; 
  FSlaveMemo.Perform(WM_VScroll, Msg.wParam, Msg.lParam); 
end; 


procedure TMasterMemo.WMHScroll(var Msg : TMessage); 
begin 
  inherited; 
  FSlaveMemo.Perform(WM_HScroll, Msg.wParam, Msg.lParam); 
endКод


;

Мой вопрос:

Я работаю сейчас с TRichEdit. Воспользовался вышеприведенной подсказкой, НО

Вместе они прокручиваются только если тянуть за скроллбар. А если
1. Выделяешь и выделение перемещает область текста
2. крутишь колесико
3. нажимаешь колесико и тянешь

два TRichEdit разделяются.

Как сделать, чтоб они абсолютно всегда прокручивались вместе

puZzo

Дата 24.2.2012, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 12.3.2008

Репутация: нет
Всего: нет

ООО, задался такой же проблемой smile

случаем не садишь рядом с мемой второй для отображения номеров строк? smile

puZzo

Дата 24.2.2012, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 12.3.2008

Репутация: нет
Всего: нет

http://forum.vingrad.ru/forum/topic-194420...0%BA%D0%B0.html

вот здесь прокрутка за сам бегунок.
чтобы сделать еще и мышью надо:

в самом контроле дописать события в public секцию

Код


    property OnMouseWheelDown;
    property OnMouseWheelUp;

далее уже на форме:

Код


    procedure OLEditorOnMouseWheelDown(Sender: TObject; Shift: TShiftState;
            MousePos: TPoint; var Handled: Boolean);
    procedure OLEditorOnMouseWheelUp(Sender: TObject; Shift: TShiftState;
            MousePos: TPoint; var Handled: Boolean);

подвешиваем обработчики к контроллу:

Код


  OLEditor1.OnMouseWheelDown := OLEditorOnMouseWheelDown;
  OLEditor1.OnMouseWheelUp := OLEditorOnMouseWheelUp;
  OLEditor2.OnMouseWheelDown := OLEditorOnMouseWheelDown;
  OLEditor2.OnMouseWheelUp := OLEditorOnMouseWheelUp;

и сами обработчики

Код


/// -------------------------------------
procedure TForm1.OLEditorOnMouseWheelDown(Sender: TObject; Shift: TShiftState;
            MousePos: TPoint; var Handled: Boolean);
begin
    Form1.Caption := TOLEditor(Sender).Name+'  Down';
    SendMessage(TOLEditor(Sender).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;
/// -------------------------------------
procedure TForm1.OLEditorOnMouseWheelUp(Sender: TObject; Shift: TShiftState;
            MousePos: TPoint; var Handled: Boolean);
begin
    Form1.Caption := TOLEditor(Sender).Name+'  Up';
    SendMessage(TOLEditor(Sender).Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
/// -------------------------------------

TOLEditor самописанный компонент для своих нужд, наследник от TMemo
думаю если покопаешься и подумаешь, прикрутишь к своей ситуации..

только проблема при прокрутке клавой или если тянуть мышкой..пока не придумал..

Это сообщение отредактировал(а) puZzo - 24.2.2012, 17:15

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »