![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как передать фокус Edit чтобы не выделялся текст? [D6, Win2k]
Кто-то4 © (2003-02-12 09:55:00)Здравствуйте!
помогите, кто знает как сделать, чтобы при передачи фокуса Edit не выделялся текст, который там уже есть, а курсор становился в конец этого текста?
Романов Р.В. (2003-02-12 11:36:00) [1]Просто ты не умеешь его готовить :)
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.SelStart := Length(Edit1.Text);
end;
Anatoly Podgoretsky (2003-02-12 11:36:00) [2]Кто-то4 (12.02.03 11:29)
Может не в SelStart дело?
tiam (2003-02-12 11:36:00) [3]SelStart не работатет так как надо...
Например,
Если длина текста в edit1 = 6, то edit1.SelStart:=7, а не больше
Ксюша (2003-02-12 11:34:00) [4]но если глянуть код для установки SelStart, он будет подозрительно похож на пример, приведенный Романовым Р.В. )
Кто-то4 (2003-02-12 11:29:00) [5]SelStart не работатет так как надо...
Романов Р.В. (2003-02-12 11:21:00) [6]Кто-то4
Из хелпа конечно MAPI Programmer"s Reference
Как правильно заметила Ксюша достаточно SelStart
Кто-то4 (2003-02-12 11:01:00) [7]2 Романов Р.В. ©
Огромное спасибо, а откуда ты это узнал? В каком хелпе надо смотреть? :)))
Ксюша (2003-02-12 10:58:00) [8]Тоже самое делает SelStart, просто в документации не очень хорошо об этом написано )
Романов Р.В. (2003-02-12 10:56:00) [9]procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Perform(EM_SETSEL, Length(Edit1.Text), Length(Edit1.Text));
end;
Кто-то4 (2003-02-12 10:49:00) [10]Какое я не нашел, плиз помогите...
Ксюша (2003-02-12 10:19:00) [11]Там есть другое свойство, отвечающее за местоположение курсора )
Кто-то4 (2003-02-12 10:10:00) [12]Но курсор тогда в начале :(((
Ксюша (2003-02-12 10:06:00) [13]Для этого необходимо поставить AutoSelect в False.
Удач )