Скроулинг

← →
l2k (2005-12-08 13:52) [0]

Какорганизовать прокрутку TMemo,лежащем на TPanel, которая Enable:=false, при помощи колесика мыши?

← →
alex_*** © (2005-12-08 13:59) [1]

а зачем он тогда в Enable=false?

← →
l2k (2005-12-08 14:24) [2]

Что-бы выделить текст нельзя было. При memo.enable=false меняется цвет текста на серый, а нужна поддержка смены цвета и фона memo.

← →
alex_*** © (2005-12-08 14:46) [3]

многострочный лабел?

← →
l2k (2005-12-08 15:00) [4]

нет.
Меня интересует где взять обработчик события на WheelUp и WheelDown при наведеной мыши на этот memo. пробовал использовать обработчики самого окна(это едлиственное место где я вообще нашел эти обработчики..), но текст прокручивается только тогда когда мышь находится хоть где кроме панелей.

← →
l2k (2005-12-08 15:14) [5]

И интерестное то самое:
Обработчик то срабатывает при нахождении курсора мыши на панели..

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); var Scroll: TWMVScroll; begin Scroll.Msg:=WM_VScroll; Scroll.ScrollCode:=sb_LineDown; Scroll.Pos:=0; text.Dispatch(Scroll); ShowMessage("Обработчик сработал"); end;

..а сроулинг только срабатывает при нахождинии курсора вне панели.

← →
Morgoth_ (2005-12-08 15:19) [6]

RichEdit?
OnSelectionChange?

← →
l2k (2005-12-08 17:11) [7]

RichEdit не подходит по причине что при Enable=false нельзя менять фон - он заливается серым.

OnSelectionChange - нужно что-бы вообще курсора не было в memo, т.е. что-бы он был как Label.

Да с этим всем проблем то нет..меня волнует скроулин по событию колеса мыши! У меня есть кнопки скроулинга, но очень было бы еще удобно прокручивать текст колесом мыши. А если использовать RichEdit или многострочный Label - разве это как-то решает проблему?) Объект хоть как будет лежать на панели, не только по причине Enable=false..=)

Скроулинг Найти похожие ветки