Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


TeNY ©   (2004-08-31 15:43:00) 

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


TeNY   (2004-10-11 14:14:00) [1]


> XProger ©   (07.10.04 19:15) [18]
>
>  WM_MOUSEWHEEL  :
>   delta := HIWORD(wParam) - $7FFF;

Это к чему?


XProger   (2004-10-07 19:15:00) [2]


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


KSergey   (2004-10-06 19:57:00) [3]

> TeNY ©   (06.10.04 19:13) [16]
> Млжет поможеш?

Лень ;)

Кинь подробный код, можно будет глянуть.


TeNY   (2004-10-06 19:13:00) [4]

>
> KSergey ©   (05.10.04 13:22) [14]
> Как делаешь? Что толку говорить "не получается"??

Млжет поможеш?


TeNY   (2004-10-06 07:55:00) [5]

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

procedure TForm1.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ShowMessage('dd');
end;

включен
один горизональный Скрол.Мышь A4Tech c 2 Roll,на прокрутку обоих роликов откликается только горизонтальный Ролл событие RichEdit1MouseWheel не реагирует


KSergey   (2004-10-05 13:22:00) [6]

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


TeNY   (2004-10-05 12:59:00) [7]

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


KSergey   (2004-10-05 10:22:00) [8]

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


TeNY   (2004-10-05 07:47:00) [9]

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


KSergey   (2004-10-04 11:21:00) [10]

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

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


TeNY   (2004-10-04 06:12:00) [11]

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


TeNY   (2004-09-06 11:00:00) [12]

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


GrayFace   (2004-09-01 15:55:00) [13]

TeNY ©   (31.08.04 20:23) [5]
и к тому же скрол бар выключен

Включить легко. F1 -> Group поищи.


wicked   (2004-08-31 22:44:00) [14]

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


TeNY   (2004-08-31 20:23:00) [15]


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

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


TeNY   (2004-08-31 19:41:00) [16]

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


GrayFace   (2004-08-31 17:21:00) [17]

SetScrollRange можно.


GuAV   (2004-08-31 17:14:00) [18]

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


KSergey   (2004-08-31 16:21:00) [19]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо