![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скроулинг [D7, XP]
l2k © (2005-12-08 13:52:00)Какорганизовать прокрутку TMemo,лежащем на TPanel, которая Enable:=false, при помощи колесика мыши?
l2k (2005-12-08 17:11:00) [1]RichEdit не подходит по причине что при Enable=false нельзя менять фон - он заливается серым.
OnSelectionChange - нужно что-бы вообще курсора не было в memo, т.е. что-бы он был как Label.
Да с этим всем проблем то нет..меня волнует скроулин по событию колеса мыши! У меня есть кнопки скроулинга, но очень было бы еще удобно прокручивать текст колесом мыши. А если использовать RichEdit или многострочный Label - разве это как-то решает проблему?) Объект хоть как будет лежать на панели, не только по причине Enable=false..=)
Morgoth_ (2005-12-08 15:19:00) [2]RichEdit?
OnSelectionChange?
l2k (2005-12-08 15:14:00) [3]И интерестное то самое:
Обработчик то срабатывает при нахождении курсора мыши на панели..
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;
..а сроулинг только срабатывает при нахождинии курсора вне панели.
l2k (2005-12-08 15:00:00) [4]нет.
Меня интересует где взять обработчик события на WheelUp и WheelDown при наведеной мыши на этот memo. пробовал использовать обработчики самого окна(это едлиственное место где я вообще нашел эти обработчики..), но текст прокручивается только тогда когда мышь находится хоть где кроме панелей.
alex_*** (2005-12-08 14:46:00) [5]многострочный лабел?
l2k (2005-12-08 14:24:00) [6]Что-бы выделить текст нельзя было. При memo.enable=false меняется цвет текста на серый, а нужна поддержка смены цвета и фона memo.
alex_*** (2005-12-08 13:59:00) [7]а зачем он тогда в Enable=false?