Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

Как сделать, чтобы курсор постоянно отображался в TEdit, TMemo 


boa   (2002-03-19 06:54) [0]

Существует ТEdit(или ТMemo) в котором описывается некоторое уравнение. Также есть TListBox в котором находится список переменных, функций, и т.п. которые могут присутствовать в уравнении.
Задача состоит в том, что бы при выборе записи в TListBox, ее содержимое добавлялось в TEdit, в позицию, где находится курсор. Но при активизации TListBox естественно TEdit теряет фокус и курсор в нем не отображаетя.
Вопрос: как в данной ситуации добиться, чтобы курсор постоянно отображался в TEdit?



ghost_by   (2002-03-19 07:43) [1]

чтобы курсор постоянно отображался в TEdit - обрабатываешь у ListBox событие OnClick, делаешь что нужно, а потом передаешь фокус на свой TEdit -> TEdit.SetFocus.

добавлялось в TEdit, в позицию, где находится курсор - у TEdit"a есть свойство - SelStart - его и юзай для определения позиции курсора.



MBo   (2002-03-19 07:45) [2]

в нужных местах
ActiveControl:=Edit1;



boa   (2002-03-19 08:39) [3]

Это все не катит. Нужно, чтобы я перешел на TListBox, а курсор не исчезал из TEdit!



panov   (2002-03-19 08:47) [4]

>boa © (19.03.02 08:39)
Курсор показывается на том элементе, который текущий(активный) в данный момент.
И понятие это - операционной системы.

Так что забудь про то, что написал.



MBo   (2002-03-19 08:48) [5]

а ты коварный ;)
так нельзя
в качестве альтернативы могу предложить, когда Edit1 теряет фокус (onExit) вставлять имитацию | и убирать при получении фокуса или использовании текста



boa   (2002-03-19 08:51) [6]

В таком случае вопросов больше нет!



Slonic   (2002-03-19 10:42) [7]

на самом деле все очень просто те все гораздо проще, те проще некуда :)) edit1.selstart это и есть позиция каретки, держать едит постоянно активным вовсе не обязательно :))
можно эпизодически ему делать setfocus



boa   (2002-03-19 11:18) [8]

>Slonic
Проблемма не в нахождении позиции каретки в Edit, а хотелась бы видеть, при выборе записи ListBox"а, в какую прзицию строки Edit"a будет вставлена выбранная запись (уравнение длинное).
Я нахожу рациональным предложение MBo, и наверно так и сделаю.



boa   (2002-03-19 11:21) [9]

Да, совсем забыл - Всем спасибо!

P.S.
Но если еще у кого возникнут идеи - будо очень признателен.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
1-210             AlexMey               2002-03-20 12:40  2002.04.01  
Как определить координаты курсора?


3-24              de                    2002-03-06 14:52  2002.04.01  
Как сделать выпадающий список в DBGridEh?


1-184             Юрий Федоров          2002-03-19 18:03  2002.04.01  
Общее адресное пространство для двух процессов


1-239             Zool                  2002-03-18 19:22  2002.04.01  
GetFileTime и SetFileTime


1-137             Transaero             2002-03-19 12:04  2002.04.01  
Как возвести в степень отрицательное число?