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

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

выделение текста в EDITBOX [KOL, MCK, Windows]

uli ©   (2005-04-06 08:16:00) 

Подскажите, плиз, как реализовать выделение текста при переходе в EDITBOX если он не пуст?

---

ECM   (2005-04-06 09:10:00) [1]

procedure TMainForm.EditBox1Enter(Sender: PObj);
var
 S: String;
begin
 S := PControl(Sender).Text;
 PControl(Sender).SelectAll;
end;

---

uli   (2005-04-06 09:03:00) [2]

Уточнение: EDIT'ов много, можно ли реализовать это при помощи одной процедуры для всех? И как в этом случае получить значение text текущего эдита для проверки его пустоты?

---

ECM   (2005-04-06 08:52:00) [3]

procedure TMainForm.EditBox1Enter(Sender: PObj);
begin
 EditBox1.SelectAll;
end;

---

Наверх