Как заставить думать TMEmo Или Windows что в ТМемо есть много стр

← →
TeNY © (2004-08-31 15:43) [0]

Как заставить думать TMEmo Или Windows что в ТМемо есть много строк хотя там 1 строчка то есть 1 строка а поставить прокрутку на 1000 строк

← →
KSergey © (2004-08-31 16:21) [1]

Добавить туда пустые?
А вообще - зачем такое надо?

← →
GuAV © (2004-08-31 17:14) [2]

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

← →
GrayFace © (2004-08-31 17:21) [3]

SetScrollRange можно.

← →
TeNY © (2004-08-31 19:41) [4]

а стандартный на сккролл от мемо не реагирует

← →
TeNY © (2004-08-31 20:23) [5]

> GrayFace © (31.08.04 17:21) [3]
> SetScrollRange можно.

он выставляет только параметры которые тут же обновляются и к тому же скрол бар выключен

← →
wicked © (2004-08-31 22:44) [6]

навскидку
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or WS_VSCROLL)
может и не сработать...

← →
GrayFace © (2004-09-01 15:55) [7]

TeNY © (31.08.04 20:23) [5]
и к тому же скрол бар выключен
Включить легко. F1 -> Group поищи.

← →
TeNY © (2004-09-06 11:00) [8]

не нашел что-то

← →
TeNY © (2004-10-04 06:12) [9]

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

← →
KSergey © (2004-10-04 11:21) [10]

Я так понял, что надо что-то вроде виртуального Memo (т.е. когда данные не в нем самом, а хранятся "снаружи", в него отображается лишь часть)? Верно?

Про колесико - отлавливать WM_MOUSEWHEEL над мемо

← →
TeNY © (2004-10-05 07:47) [11]

Все верно понял. только у меня мышь такая если есть верт прокрутка она её крутит а если гор то её а так как верт нет то он крутутит гориз. вот в чем проблема

← →
KSergey © (2004-10-05 10:22) [12]

Ну так перехватывай и крути сам. Методику перехвата (не помню чего) подсказали в другом посте, вроде тебе же

← →
TeNY © (2004-10-05 12:59) [13]

мне про WM_MOUSEWHEEL и говорили а перехватывать не получается

Как делаешь? Что толку говорить "не получается"??

Поле типа RIchEdit,событие

procedure TForm1.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ShowMessage("dd"); end;
включен
один горизональный Скрол.Мышь A4Tech c 2 Roll,на прокрутку обоих роликов откликается только горизонтальный Ролл событие RichEdit1MouseWheel не реагирует

WM_MOUSEWHEEL : delta := HIWORD(wParam) - $7FFF;

Как заставить думать TMEmo Или Windows что в ТМемо есть много стр Найти похожие ветки