Скачать: CL | DM;

Как передать фокус 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, он будет подозрительно похож на пример, приведенный Романовым Р.В. )

---

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

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

---

← →
Anatoly Podgoretsky ©   (2003-02-12 11:36) [12]

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c