VPF::Скроллинг нескольких Tmemo - Форум программистов

Mach3

Дата 29.11.2010, 08:08 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем привет.
Помогите с решением следующей "задачки"..
У меня на форме 4 Тмемо..
Необходимо, чтобы при изменении верт. скроллбара любого из Тмемо, синхронно прокручивались остальные..
Заранее примного благодарен.

--------------------

Век живи - век учись...

CROTishka

Дата 29.11.2010, 13:19 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


type
  TMemo = class(StdCtrls.TMemo)
  private
    FUpdating: boolean;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
//...............
//тут ваша форма
//.................
procedure TMemo.WMVScroll(var Message: TWMVScroll);
var
  i: integer;
begin
  if not FUpdating then
    begin
      FUpdating := true;
      try
      with Form2 do
        for I := 0 to ComponentCount - 1 do
          if (Components[i] is StdCtrls.TMemo) and (Components[i] <> self) then
            Components[i].Dispatch(Message);
          inherited;
      finally
        FUpdating := false;
      end;
    end;
end;

для изменения пропорций менять Message.Msg

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