Скачать: CL | DM;

Диалоговое окно   Найти похожие ветки 

← →
Осирис ©   (2002-09-19 15:59) [0]

Мой код:

....
// Создание окна
m:=Tm.Create(self);
m.Visible;
.............

То есть после создания окна продолжается выполнение кода процедуры. А как сдалать так, чтобы после создания окна например после m.Visible выполнение кода прекратилось и возобновилось лишь после закрытия окна, причем из этого окна принималось какое-либо значение.

Не охото разделять процедуру на 2 части (одна до m.visible, другая после). Надеюсь меня поняли :)

Или это делается как-то по другому ?

---

← →
lenin ©   (2002-09-19 16:00) [1]

m.ShowModal

---

← →
BOA_KAA ©   (2002-09-19 16:01) [2]

А как насчет Label?

---

← →
Осирис ©   (2002-09-19 16:06) [3]

>> m.ShowModal


Сейчас попробую.

>> А как насчет Label?


А что Label ?

---

← →
BOA_KAA ©   (2002-09-19 16:09) [4]

2Осирис © (19.09.02 16:06)

А что Label ?

Если возник этот вопрос, значит я твой неправильно понял:-)))

---

← →
Осирис ©   (2002-09-19 16:14) [5]

>> m.ShowModal


Да. Подходит. Тогда еще один вопрос.

Как получить значение из модальной формы, которое там было перед ее закрытием ?
Можно перед закрытием модальной формы устанавливать значение какой либо переменной, а в основном коде читать эту переменную. Или есть более красивый способ ?

---

← →
lenin ©   (2002-09-19 16:18) [6]

Просто обращайся к свойствам этой формы и все.
Например, если тебе надо получить текст из m.edit1, то пишешь
str:=m.edit1.text;

---

← →
Осирис ©   (2002-09-19 16:41) [7]

>> Просто обращайся к свойствам этой формы и все.
>> Например, если тебе надо получить текст из m.edit1, то пишешь
>> str:=m.edit1.text;

Информацию мне нужно получать после закрытия формы:

т.е.

form.ShowModal;

Ввели параметры
Закрыли форму form

Работаем с параметрами введенными в form (Здесь уже form не существует)

---

← →
lenin ©   (2002-09-19 16:47) [8]

ff:=TForm2.Create(self);
ff.ShowModal;
caption:=ff.Edit1.Text;
в таком варианте все работает.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c