| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как вернуть значение из TEdit в TEdit другой формы [D7, XP]
SveTTT © (2007-09-29 02:07:00)Здравствуйте!
Помогите, пожалуйста, решить проблему:
Из разных форм при обработке нажатия клавиши в TEdit вызывается через ShowModal форма типа "калькулятор". Как реализовать чтобы значения из поля TEdit формы "калькулятор" при закрытии подставлялись в TEdit родительского окна, из которого была вызвана форма "калькулятор".
Надеюсь объяснила ;)
Kolan (2007-09-29 17:47:00) [1]Anatoly Podgoretsky © (29.09.07 11:40) [5]
Благодарю, мозги вправились.
Anatoly Podgoretsky (2007-09-29 11:40:00) [2]> SveTTT (29.09.2007 02:27:02) [2]
Вообще то это диалог, а диалоги принять делать чуть, чуть иначе.
1. функциональный метод Execute
2. форма диалога должна создаваться и уничтожаться в самом диалоге
3. должна быть функция или свойство для считывания результа.
Вызов
if CalcDlg.Execute then var := Calc.RetValue;
Kolan (2007-09-29 09:35:00) [3]> «родительская форма».Edit1.Text:= «калькулятор».Edit1.Text;
Я бы отвязал вормы хоть чуть чуть…
В форме с калькулятором сделал бы
function GetValue: string;
begin
Result := Edit1.Text;
end;
В родительской
if «калькулятор».ShowModal = mrOk then
Edit1.Text := «калькулятор».GetValue
Германн (2007-09-29 02:33:00) [4]
> SveTTT (29.09.07 02:27) [2]
>
> Отлично! Работает. Спасибо за помощь и оперативность.
>
Хм. Странно. А я то думал, что последует ещё масса вопросов. Ведь я ответил не на тот вопрос, который был в сабже.
Телепатор сам по себе включился :-)
SveTTT (2007-09-29 02:27:00) [5]Отлично! Работает. Спасибо за помощь и оперативность.
Германн (2007-09-29 02:20:00) [6]
> Из разных форм при обработке нажатия клавиши в TEdit вызывается
> через ShowModal форма типа "калькулятор". Как реализовать
> чтобы значения из поля TEdit формы "калькулятор" при закрытии
> подставлялись в TEdit родительского окна, из которого была
> вызвана форма "калькулятор".
>
В "родительской" форме:
"калькулятор".ShowModal;
"родительская форма".Edit1.Text:= "калькулятор".Edit1.Text;
| |
