Как заблокировать прокрутку текста в memo?

Сейчас на форуме: zds, UniSoft (+5 невидимых)

Посл.ответ	Сообщение
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 17 мая 2013 02:22 · Личное сообщение · #1 Если кол-во символов в строке (или самих строк) в компоненте мемо (или ричэдит, неважно), превышает размер границ компонента, то, выделяя текст мышкой и подводя кусрор к границам, он автоматом скролится. Есть ли возможность заблокировать это?

r_e Ранг: 590.6 (!), 408thx Активность: 0.36↘0.18 Статус: Модератор	Создано: 17 мая 2013 02:53 · Личное сообщение · #2 Задисейблить окно. ----- старый пень \| Сообщение посчитали полезным: SReg
mysterio Ранг: 307.9 (мудрец), 196thx Активность: 0.18↘0 Статус: Участник	Создано: 17 мая 2013 03:28 · Поправил: mysterio · Личное сообщение · #3 Как вариант: Memo1.DragMode := dmAutomatic; Тогда текст мышкой (можно только через правую кнопку мышки) и клавишами не выделить и соответственно не поскролить. Ну или так, тогда конечно текст никак мышкой, кроме как правой, не выделить: Code: TMemo = class(StdCtrls.TMemo) procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE; end; TForm1 = class(TForm) Memo1: TMemo; ... end; procedure TMemo.WMMouseActivate(var Msg: TMessage); begin try inherited; if Msg.LParamHi = 513 then begin // 516 для правой кнопки // showmessage('Нажали левую кнопку мышки'); Msg.Result:= MA_NOACTIVATEANDEAT; end; except // ... end; end; ----- Don_t hate the cracker - hate the code. \| Сообщение посчитали полезным: SReg
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 17 мая 2013 08:34 · Поправил: SReg · Личное сообщение · #4 mysterio Да не, это не то, но в любом случае спасибо Мне нужно было перетаскивать выделенный кусок текста мышкой на другой компонент, не портачив "внешний вид". А так уже вопрос решил в принципе.
mysterio Ранг: 307.9 (мудрец), 196thx Активность: 0.18↘0 Статус: Участник	Создано: 17 мая 2013 13:54 · Личное сообщение · #5 Делись решением ----- Don_t hate the cracker - hate the code.
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 17 мая 2013 15:22 · Личное сообщение · #6 Ну у меня компонента Synedit, и я умудрился провтыкать, что там уже есть события OnStartDrag/OnEndDrag Ну а в теле собветственно как сказал r_e (enable/disable) Просто невнимательность

Для печати