курсор в EDIT

[san72]

По нажатию клавиши "стрелка вверх" должна появится в EDIT определённая строка из переменной (допустим из переменной STROKA) и курсор должен встать в конец этой строки, я делаю так:

IF Key=VK_UP then begin
Edit1.Text:=(STROKA);
Edit1.SelStart:=Length(STROKA);
end;

Теперь проблема - курсор встаёт НЕ НА ПОСЛЕДНИЙ А НА ПРЕДПОСЛЕДНИЙ символ... почему ? пробывал +1 добовлять - непомогает.. в чём проблема?

[mihali4]

Замените:
Edit1.SelStart:=Length(Edit1.Text);

[san72]

mihali4 ничего не изменилось

[mihali4]

Смотрите, что у вас там в переменной...
Вот рабочий вариант:

IF Key=VK_UP then begin
Edit1.Text:='(STROKA)';
Edit1.SelStart:=Length(Edit1.Text);
end;

[san72]

mihali4 ваш "рабочий" вариант работает так-же как и мой нерабочий ) могу скинуть *.exe если не верите
(я даже переменную убрал, просто текст и всёравно на предпоследний символ встаёт)

[Пепел Феникса]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_UP then begin
                    Edit1.Text:=('STROKA');
                    Edit1.SelStart:=Length('STROKA');
                    Key:=0;
                   end;
end;

[san72]

Пепел Феникса спасибо

[mihali4]

Сообщение от san72

mihali4 ваш "рабочий" вариант работает так-же как и мой нерабочий ) могу скинуть *.exe если не верите
(я даже переменную убрал, просто текст и всёравно на предпоследний символ встаёт)

А у меня все нормально - курсор становится после скобки...
Кстати, а зачем тут скобки? Edit1.Text:=('STROKA');

[Пепел Феникса]

да я просто скопировал то что в начале со скобками было и дополнил
а так они не нужны