Скачать: CL | DM;

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

← →
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..=)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c