Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Вниз

Компонент МЕМО   Найти похожие ветки 

 
a2618 ©   (2008-08-15 23:07) [0]

Заранее спс за ответы =)
Мне надо сделать так что бы клавиша BackSpace переставала удалять символы если от начала строки до места положения курсора осталось определленое кол-во символов.


 
{RASkov} ©   (2008-08-15 23:18) [1]

> [0] a2618 ©   (15.08.08 23:07)

Например:
На MemoOnKeyPress
if TMemo(Sender).CaretPos.X<={определленое кол-во символов} and Key=#8 then Key:=#0;


 
McSimm ©   (2008-08-15 23:38) [2]

А для чего это нужно?
Подозреваю, что этого мало, т.к. можно удалять разными способами.
От мыши или Ctrl-A,Del, например, это не защитит


 
a2618 ©   (2008-08-15 23:43) [3]

При компиляции выдает такую ошибку
[Error] dh.pas(52): Operator not applicable to this operand type

if TMemo(Sender).CaretPos.X<=3 and Key=(суда ставит курсор)#8 then Key:=#0;


 
McSimm ©   (2008-08-15 23:44) [4]

if (...) and (...) then


 
a2618 ©   (2008-08-15 23:46) [5]

А для чего это нужно?
Подозреваю, что этого мало, т.к. можно удалять разными способами.
От мыши или Ctrl-A,Del, например, это не защитит

спс что напомнил мыш надо вообще запретить.
а насчет Del я запретил клавиши up, down, left, right.


 
McSimm ©   (2008-08-15 23:49) [6]

Есть еще много...
Ctrl-A (выделяет, можно заменить)
кнопка вызова контекстного меню
Tab (при входе выделяет весь текст)


 
a2618 ©   (2008-08-15 23:50) [7]

> if (...) and (...) then
Компилица норм без ошибок но бэкспэйс всеравно пашет, даже если от начала строки 3 символа как я и поставил удаляет все что есть =(


 
Loginov Dmitry ©   (2008-08-15 23:56) [8]

> Компилица норм без ошибок но бэкспэйс всеравно пашет, даже
> если от начала строки 3 символа как я и поставил удаляет
> все что есть


Похоже, приложению сообщение посылается уже после удаления символов. Обходится хуками, но стоит ли? Используй TRichEdit.


 
Германн ©   (2008-08-15 23:56) [9]


> a2618 ©   (15.08.08 23:50) [7]
>
> > if (...) and (...) then
> Компилица норм без ошибок но бэкспэйс всеравно пашет, даже
> если от начала строки 3 символа как я и поставил удаляет
> все что есть =(
>

Извращение есть моё всё.! Но "компилица" - это перебор!


 
a2618 ©   (2008-08-15 23:58) [10]

>Германн ©   (15.08.08 23:56) [9]
>Извращение есть моё всё.! Но "компилица" - это перебор!

Иди флуди в другое место если не можеш ответить по теме!!!!!!!


 
McSimm ©   (2008-08-16 00:02) [11]

до закрытия темы осталось 2 поста :)



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

Форум: "Начинающим";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.053 c
3-1206455333
*Pavel
2008-03-25 17:28
2008.09.28
Перехват SQL команд


15-1218192877
axis_of_evil
2008-08-08 14:54
2008.09.28
принимайте дипломированного лопуха


2-1218824814
inforoom
2008-08-15 22:26
2008.09.28
Создана ли Форма?


2-1219214406
Максим
2008-08-20 10:40
2008.09.28
Использование ADOConnection в сервисе


2-1218725736
BioStaR
2008-08-14 18:55
2008.09.28
Вырезание из строки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский