主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档: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]

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

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



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.04.01;
下载:[xml.tar.bz2];

楼上









内存:0.58 MB
时间:0.058 c
1-173
德莱昂
2002-03-19 16:15
2002.04.01
如何将插件中的TMenuItem插入任何程序菜单?


4-346
JAndrey
2002-02-01 01:21
2002.04.01
??


14-287
亚历克斯爵士
2002-02-04 19:44
2002.04.01
DMFC 1.1.003a(竞争意味着什么!)


3-58
Malder
2002-03-05 19:22
2002.04.01
如何使用UPDATE使用BLOB?


3-47
TenLuny
2002-03-07 12:12
2002.04.01
神谕





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский