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

Вниз

Модальное окно   Найти похожие ветки 

← →
ALex11   (2005-11-04 20:54) [0]

Есть окно вызываемое в модальном режиме. На форме кнопка button1.modalresult=mrOK. И строка edit1. Как сделать так , чтобы при нажатии на кнопку button1 окно не закрывалось, если edit1.text=’’, и закрывалось если иначе.

---

← →
begin...end ©   (2005-11-04 21:09) [1]

В OnCloseQuery:

CanClose := (ModalResult <> mrOK) or (Edit.Text <> "")

---

← →
Юрий Зотов ©   (2005-11-05 04:11) [2]

В Edit1.OnChange:

Button1.Enabled := Edit1.Text <> ""

---

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

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

Наверх

Память: 0.44 MB
Время: 0.039 c