| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TEdit.AutoSelect

StriderMan ©   (2007-06-18 15:44:00) 

Сабж не работает. в хэлпе никаких доп. условий нет, как заставить работать?

---

StriderMan   (2007-06-18 15:58:00) [1]

кажется нашел почему.

procedure TCustomEdit.CMEnter(var Message: TCMGotFocus);
begin
 if FAutoSelect and not (csLButtonDown in ControlState)and
   (GetWindowLong(Handle, GWL_STYLE) and ES_MULTILINE = 0) then SelectAll;
 inherited;
end;

в принципе - логично. чтобы можно было курсор в нужную позицию хлопнуть.

вопрос снят.

---

StriderMan   (2007-06-18 15:53:00) [2]

> MBo ©   (18.06.07 15:52) [2]

а мышкой нет? :(

пробовал даже

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 Edit1.SelectAll;
end;
не помогло

---

MBo   (2007-06-18 15:52:00) [3]

Оно работает, когда табом переходишь или фокус программно переставляешь.

---

StriderMan   (2007-06-18 15:52:00) [4]

> Правильный Вася   (18.06.07 15:50) [1]

Determines whether all the text in the edit control is automatically selected when the control gets focus.
Set AutoSelect to select all the text when the edit control gets focus. AutoSelect only applies to single-line edit controls.

Use AutoSelect when the user is more likely to replace the text in the edit control than to append to it.



D7

выделяться весь текст должен при получении фокуса.

---

Правильный Вася   (2007-06-18 15:50:00) [5]

а как должен?
версия дельфи?

---

Наверх