Форум: "KOL";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Вниз

выделение текста в EDITBOX   Найти похожие ветки 

← →
uli   (2005-04-06 08:16) [0]

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

---

← →
ECM ©   (2005-04-06 08:52) [1]

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

---

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

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

---

← →
ECM ©   (2005-04-06 09:10) [3]

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

---

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

Форум: "KOL";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Наверх

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