Как передать фокус Edit чтобы не выделялся текст?

← →
Кто-то4 (2003-02-12 09:55) [0]

Здравствуйте!
помогите, кто знает как сделать, чтобы при передачи фокуса Edit не выделялся текст, который там уже есть, а курсор становился в конец этого текста?

← →
Ксюша (2003-02-12 10:06) [1]

Для этого необходимо поставить AutoSelect в False.
Удач )

← →
Кто-то4 (2003-02-12 10:10) [2]

Но курсор тогда в начале :(((

← →
Ксюша (2003-02-12 10:19) [3]

Там есть другое свойство, отвечающее за местоположение курсора )

← →
Кто-то4 (2003-02-12 10:49) [4]

Какое я не нашел, плиз помогите...

← →
Романов Р.В. © (2003-02-12 10:56) [5]

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Perform(EM_SETSEL, Length(Edit1.Text), Length(Edit1.Text));
end;

← →
Ксюша (2003-02-12 10:58) [6]

Тоже самое делает SelStart, просто в документации не очень хорошо об этом написано )

← →
Кто-то4 (2003-02-12 11:01) [7]

2 Романов Р.В. ©
Огромное спасибо, а откуда ты это узнал? В каком хелпе надо смотреть? :)))

← →
Романов Р.В. © (2003-02-12 11:21) [8]

Кто-то4
Из хелпа конечно MAPI Programmer"s Reference

Как правильно заметила Ксюша достаточно SelStart

← →
Кто-то4 (2003-02-12 11:29) [9]

SelStart не работатет так как надо...

← →
Ксюша (2003-02-12 11:34) [10]

но если глянуть код для установки SelStart, он будет подозрительно похож на пример, приведенный Романовым Р.В. )

Просто ты не умеешь его готовить :)
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.SelStart := Length(Edit1.Text);
end;

Кто-то4 (12.02.03 11:29)
Может не в SelStart дело?

← →
tiam (2003-02-12 11:36) [13]

SelStart не работатет так как надо...

Например,
Если длина текста в edit1 = 6, то edit1.SelStart:=7, а не больше

Как передать фокус Edit чтобы не выделялся текст? Найти похожие ветки