Переместить курсор в TEdit на начало

← →
samalex2504 (2011-04-21 13:54) [0]

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

← →
samalex2504 (2011-04-21 14:09) [1]

Нашел -
Edit1.SelStart:=1;

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

← →
clickmaker © (2011-04-21 14:17) [2]

> Edit1.SelStart:=1

а почему не 0?

← →
samalex2504 (2011-04-21 14:25) [3]

Для TRxLookupEdit Edit1.SelStart:=0 не работает

← →
Anatoly Podgoretsky © (2011-04-21 14:30) [4]

> 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:48) [5]

С TEdit все понятно : Edit1.SelStart:=0 и становится на начало текста.
А как быть с TRxLookupEdit из библиотеки Rx ? Там SelStart:=0 не работает.

← →
Медвежонок Пятачок © (2011-04-21 14:52) [6]

В поле компонента TEdit записываю программно длинный текст (длиннее компонента). Ухожу фокусом на др. компонент.

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

← →
samalex2504 (2011-04-21 15:15) [7]

Обычно,
TRxLookupEdit.text = "....."

← →
Медвежонок Пятачок © (2011-04-21 15:28) [8]

а при чем здесь фокус?

← →
samalex2504 (2011-04-21 15:37) [9]

Да ни при чем.
Я вопрос про перемещение курсора на начало задал.

← →
Медвежонок ХМЛ © (2011-04-21 15:38) [10]

Курсор не надо перемещать в начало.
Просто потому, что при присвоении свойству "текст" у эдита он ни в какой конец не переходит, а остается там где и был. в начале.
даже если фокус перемещается на следующий контрол.

← →
samalex2504 (2011-04-21 15:46) [11]

У меня почему-то перемещается

← →
Медвежонок Пятачок © (2011-04-21 15:51) [12]

ну ты и про фокус почему-то и зачем-то здесь рассказывал.

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

procedure TForm1.SpeedButton1Click(Sender: TObject); begin Edit1.Text := "1117777777777777777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777"; Edit2.Text := "1117777777777777777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777"; //ActiveControl := Edit2; end;

← →
samalex2504 (2011-04-21 16:03) [14]

Странно. Написал кусок с выбором из с списка в RXLookupEdit в отдельной программе. Там курсор в начале.
Что-то в проге не то.

у тебя не курсор перемещается. у тебя происходит выделение текста в контроле в силу того, что autoselect = true;

← →
samalex2504 (2011-04-21 16:24) [16]

Я удалил старый компонент RxLookupEdit и поставил новый. Все стало как надо.
А с autoselect интересно ...
Спасибо !!!

> Я удалил старый компонент RxLookupEdit и поставил новый

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

Переместить курсор в TEdit на начало Найти похожие ветки