Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TMemo, как запретить ставить курсор, на некотором участке 
V
    Опции темы
Ak47black
  Дата 13.5.2007, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0



Вообшем незнаю как тут сделать, долго думал но так и ненашол решение.
Мне нужно запретить ставить курсор на некоторые участки ввода в TMemo.
Если точнее то хочю превратить TMemo в консол ввода, как в cmd.exe. Делаю прогу удаленного управления.

На картинке я пометил красным участок где я хочю запретить ставить курсор ,а зеленым где можно будет ставить, тоесть все как в виндовской консоли.

user posted image

Предпологаю что при MouseDown нужно проверять и в случае если курсор был нажат на красном участке переносить его в начало зеленого участка.
Только как вычислить на каком участке был произведен шелчок?
Текст который находиться в красной участке я храню в отдельном стринге.

PM MAIL   Вверх
Yanis
Дата 13.5.2007, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111



По твоей логике, курсор можно поставить в любом месте окна, кроме там где красное.
А на самом деле можно только после красного участка.
Собсно и надо проверять, если курсор дальше или ближе, чем «>»+текст, то ставим его куда надо.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 13.5.2007, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0



Хорошо ,а как понять например что клик был произведён в крачной области?
PM MAIL   Вверх
Poseidon
Дата 13.5.2007, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Вот тебе функция, каторая определяет стороку и сомвол, перед каторым установлен курсор. Грубо говоря определяет координаты курсора в Мемо. Сверяй их с тем, что у тебя там есть, и если эти координаты в красной зоне, то ставь курсор в конец Мемо (Memo1.SelStart:= Length(Memo1.Text);).

Код
procedure TForm1.Button1Click(Sender: TObject);
var X,Y: LongInt;
begin
Y:=Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
X:=Memo1.Perform(EM_LINEINDEX, Y, 0);
inc(Y);
X:=Memo1.SelStart-X+1;
Label1.Caption:= 'Строка:'+IntToStr(Y)+'; Символ:'+IntToSTr(X);
end;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ak47black
Дата 13.5.2007, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0



Ага вижу что код ценный. Спасибо smile  +

Это сообщение отредактировал(а) Ak47black - 13.5.2007, 13:14
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0461 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.