Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Вниз

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

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

Наверх




Память: 0.45 MB
Время: 0.042 c
2-1190633921
alshtam
2007-09-24 15:38
2007.10.21
ресурс


2-1190363813
Flood_control
2007-09-21 12:36
2007.10.21
Edit & UpDown


11-1173903627
VVU
2007-03-14 23:20
2007.10.21
Прямоугольник текста в StrigGrid


1-1186147631
Apachi
2007-08-03 17:27
2007.10.21
Как при создании своего компонента переопределить событие


2-1191060534
Pacific
2007-09-29 14:08
2007.10.21
Процесс





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский