[bleeep]

Всем привет, скажите пожалуйста как отключить backspace в richedit? чтобы нельзя было удалять символы? (также и кнопки del)

[The Shadow]

попробуй onkeyup:

Код:

 if (Key = 7) or (Key = VK_DELETE) then
  Key:=0;

что то подобное кажется было

[bleeep]

работает

Код:

if (Key = VK_BACK) or (Key = VK_DELETE) then
  key:=0;

Если и в down и в up поставить)))
Еще вопрос:как сравнить введенную строку с константой по нажатию кнопки???))

[Vayrus]

Сравнить не сложно:

Код:

const 
x = 'abcd';
...
if RichEdit1.Text = x then//как минимум так, но можно юзать функции для сравнения с учетом и без регистра, а также проверять только наличие строки-константы в тексте
ShowMessage('bla bla');
...

[Kapitoshka438]

Сообщение от bleeep

работает

Код:

if (Key = VK_BACK) or (Key = VK_DELETE) then
  key:=0;

Если и в down и в up поставить)))

Должно работать, если поставить только в KeyDown, в KeyUp не надо.

[bleeep]

#4 не работает((((
Допустим в richedit есть текст:

Код:

xxxxxxxxxxx
xxxxxxxxxxxxx
xxxxxxxx
Здесь я ввожу какую то строку(к примеру '123')

И при действии на нажатие кнопки должно искать '123' если нашлось тогда
вывести определенные строки либо еще что то сделать...

[bleeep]

Подскажите как сделать чтобы выполнялась операция and в следующем коде:

Код:

if RichEdit1.Lines[RichEdit1.Lines.Count-1]='test1' and RichEdit1.Lines[RichEdit1.Lines.Count-2]='test2' then ...

operator not applicable to this operand type ошибка при компиляции
может есть какой то аналог или еще что то?

[Kapitoshka438]

Оба выражения нужно взять в скобочки.

Код:

if (RichEdit1.Lines[RichEdit1.Lines.Count-1]='test1') and (RichEdit1.Lines[RichEdit1.Lines.Count-2]='test2') then ...

[bleeep]

Спасибо, что то я туплю))ставил просто сначала все выражение)