![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Ak47black |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2205 Регистрация: 2.12.2005 Репутация: 1 Всего: 0 |
Вообшем незнаю как тут сделать, долго думал но так и ненашол решение.
Мне нужно запретить ставить курсор на некоторые участки ввода в TMemo. Если точнее то хочю превратить TMemo в консол ввода, как в cmd.exe. Делаю прогу удаленного управления. На картинке я пометил красным участок где я хочю запретить ставить курсор ,а зеленым где можно будет ставить, тоесть все как в виндовской консоли. ![]() Предпологаю что при MouseDown нужно проверять и в случае если курсор был нажат на красном участке переносить его в начало зеленого участка. Только как вычислить на каком участке был произведен шелчок? Текст который находиться в красной участке я храню в отдельном стринге. |
|||
|
||||
| Yanis |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2937 Регистрация: 9.2.2004 Где: Москва Репутация: 72 Всего: 111 |
По твоей логике, курсор можно поставить в любом месте окна, кроме там где красное.
А на самом деле можно только после красного участка. Собсно и надо проверять, если курсор дальше или ближе, чем «>»+текст, то ставим его куда надо. |
|||
|
||||
| Ak47black |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2205 Регистрация: 2.12.2005 Репутация: 1 Всего: 0 |
Хорошо ,а как понять например что клик был произведён в крачной области?
|
|||
|
||||
| Poseidon |
|
|||
![]() Delphi developer ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
Вот тебе функция, каторая определяет стороку и сомвол, перед каторым установлен курсор. Грубо говоря определяет координаты курсора в Мемо. Сверяй их с тем, что у тебя там есть, и если эти координаты в красной зоне, то ставь курсор в конец Мемо (Memo1.SelStart:= Length(Memo1.Text);).
-------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
| Ak47black |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2205 Регистрация: 2.12.2005 Репутация: 1 Всего: 0 |
Ага вижу что код ценный. Спасибо
Это сообщение отредактировал(а) Ak47black - 13.5.2007, 13:14 |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |