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

как вернуть значение из TEdit в TEdit другой формы   Найти похожие ветки 

← →
SveTTT   (2007-09-29 02:07) [0]

Здравствуйте!
Помогите, пожалуйста, решить проблему:
Из разных форм  при обработке нажатия клавиши в TEdit вызывается через ShowModal форма типа "калькулятор". Как реализовать чтобы значения из поля TEdit формы "калькулятор" при закрытии подставлялись в TEdit родительского окна, из которого была вызвана форма "калькулятор".
Надеюсь объяснила ;)

---

← →
Германн ©   (2007-09-29 02:20) [1]

> Из разных форм  при обработке нажатия клавиши в TEdit вызывается
> через ShowModal форма типа "калькулятор". Как реализовать
> чтобы значения из поля TEdit формы "калькулятор" при закрытии
> подставлялись в TEdit родительского окна, из которого была
> вызвана форма "калькулятор".
>

В "родительской" форме:
 "калькулятор".ShowModal;
 "родительская форма".Edit1.Text:= "калькулятор".Edit1.Text;

---

← →
SveTTT   (2007-09-29 02:27) [2]

Отлично! Работает. Спасибо за помощь и оперативность.

---

← →
Германн ©   (2007-09-29 02:33) [3]

> SveTTT   (29.09.07 02:27) [2]
>
> Отлично! Работает. Спасибо за помощь и оперативность.
>

Хм. Странно. А я то думал, что последует ещё масса вопросов. Ведь я ответил не на тот вопрос, который был в сабже.

Телепатор сам по себе включился :-)

---

← →
Kolan ©   (2007-09-29 09:35) [4]

> «родительская форма».Edit1.Text:= «калькулятор».Edit1.Text;

Я бы отвязал вормы хоть чуть чуть&#133

В форме с калькулятором сделал бы
function GetValue: string;
begin
 Result := Edit1.Text;
end;
В родительской
if «калькулятор».ShowModal = mrOk then
 Edit1.Text := «калькулятор».GetValue

---

← →
Anatoly Podgoretsky ©   (2007-09-29 11:40) [5]

> SveTTT  (29.09.2007 02:27:02)  [2]

Вообще то это диалог, а диалоги принять делать чуть, чуть иначе.

1. функциональный метод Execute
2. форма диалога должна создаваться и уничтожаться в самом диалоге
3. должна быть функция или свойство для считывания результа.

Вызов

if CalcDlg.Execute then var := Calc.RetValue;

---

← →
Kolan ©   (2007-09-29 17:47) [6]

Anatoly Podgoretsky ©   (29.09.07 11:40) [5]
Благодарю, мозги вправились.

---

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

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



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