как вернуть значение из 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

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

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

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

Вызов

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

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