Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Переместить курсор в TEdit на начало [D7, XP]

samalex2504 © (2011-04-21 13:54:00)
Следующая ситуация.
В поле компонента TEdit записываю программно длинный текст (длиннее компонента). Ухожу фокусом на др. компонент. При этом текст в TEdit оказывается прокрученным вправо и начало не видно.
Как сделать, чтобы прокрутить программно строку текста в компоненте на начало?

clickmaker (2011-04-21 16:27:00) [1]
> Я удалил старый компонент RxLookupEdit и поставил новый

универсальное решение. Как и переустановка винды

samalex2504 (2011-04-21 16:24:00) [2]
Я удалил старый компонент RxLookupEdit и поставил новый. Все стало как надо.
А с autoselect интересно ...
Спасибо !!!

Медвежонок ХМЛ (2011-04-21 16:07:00) [3]
у тебя не курсор перемещается. у тебя происходит выделение текста в контроле в силу того, что autoselect = true;

samalex2504 (2011-04-21 16:03:00) [4]
Странно. Написал кусок с выбором из с списка в RXLookupEdit в отдельной программе. Там курсор в начале.
Что-то в проге не то.

Медвежонок ХМЛ (2011-04-21 15:54:00) [5]
procedure TForm1.SpeedButton1Click(Sender: TObject); begin Edit1.Text := '1117777777777777777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777'; Edit2.Text := '1117777777777777777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777'; //ActiveControl := Edit2; end;

Медвежонок Пятачок (2011-04-21 15:51:00) [6]
ну ты и про фокус почему-то и зачем-то здесь рассказывал.

предлагаешь угадать в каком ухе у тебя сейчас жужжит?

samalex2504 (2011-04-21 15:46:00) [7]
У меня почему-то перемещается

Медвежонок ХМЛ (2011-04-21 15:38:00) [8]
Курсор не надо перемещать в начало.
Просто потому, что при присвоении свойству "текст" у эдита он ни в какой конец не переходит, а остается там где и был. в начале.
даже если фокус перемещается на следующий контрол.

samalex2504 (2011-04-21 15:37:00) [9]
Да ни при чем.
Я вопрос про перемещение курсора на начало задал.

Медвежонок Пятачок (2011-04-21 15:28:00) [10]
а при чем здесь фокус?

samalex2504 (2011-04-21 15:15:00) [11]
Обычно,
TRxLookupEdit.text = '.....'

Медвежонок Пятачок (2011-04-21 14:52:00) [12]
В поле компонента TEdit записываю программно длинный текст (длиннее компонента). Ухожу фокусом на др. компонент.

И каким же таким еретическим макаром ты туда записываешь текст?
/* Я про упоминание "ухожу фокусом" */

samalex2504 (2011-04-21 14:48:00) [13]
С TEdit все понятно : Edit1.SelStart:=0 и становится на начало текста.
А как быть с TRxLookupEdit из библиотеки Rx ? Там SelStart:=0 не работает.

Anatoly Podgoretsky (2011-04-21 14:30:00) [14]
> samalex2504 (21.04.2011 14:09:01) [1]

Read SelStart to determine the position of the first selected character,
where 0 indicates the first character.

samalex2504 (2011-04-21 14:25:00) [15]
Для TRxLookupEdit Edit1.SelStart:=0 не работает

clickmaker (2011-04-21 14:17:00) [16]
> Edit1.SelStart:=1

а почему не 0?

samalex2504 (2011-04-21 14:09:00) [17]
Нашел -
Edit1.SelStart:=1;

Вот если бы тоже самое с компонентом TRxLookupEdit сделать.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »