Форум: "Основная";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Вниз

TEdit.AutoSelect   Найти похожие ветки 

← →
StriderMan ©   (2007-06-18 15:44) [0]

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

---

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

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

---

← →
MBo ©   (2007-06-18 15:52) [2]

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

---

← →
StriderMan ©   (2007-06-18 15:52) [3]

> Правильный Вася   (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

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

---

← →
StriderMan ©   (2007-06-18 15:53) [4]

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

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

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

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

---

← →
StriderMan ©   (2007-06-18 15:58) [5]

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

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;

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

вопрос снят.

---

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

Форум: "Основная";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c