| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача параметров между формами [D7, WinXP]

Glushenko ©   (2007-02-12 11:15:00) 

Привет все!
помогите разобраться с такой проблемой
У меня MDI приложение мне надо передать параметр из формы  в форму открывшую её как это реализовать?

---

Glushenko   (2007-02-12 15:14:00) [1]

Все спасибо разобрался

---

Glushenko   (2007-02-12 15:13:00) [2]

Все спасибо разобрался

---

fd979   (2007-02-12 15:09:00) [3]

> Glushenko   (12.02.07 13:41) [5]

Осилив-таки написанное - а чем не нравятся переменные глобальные?

Или

> function myfunc(myparameter : mytype) : myresulttype;


Опиши по человечески, что тебе надо.

---

Плохиш   (2007-02-12 14:09:00) [4]

> Glushenko   (12.02.07 13:41) [5]

Стоит на время прекратить бездумное топтание кнопок, а заняться более продуктивным изучением теории этой чёртовой науки "Программирование".

---

Glushenko   (2007-02-12 13:41:00) [5]

все нето у меня форма документ какойто их можно открыть несколько одновременно а из них вызывается еще одна форма выбор какихто данных  тоесть у каждой должна быть своя вторая форма и мне нужно из второй формы вернуть в первую данные так что глобальный параметр неподходит

---

fd979   (2007-02-12 12:39:00) [6]

> uses
>   unitunit1


без подчеркнутого

---

fd979   (2007-02-12 12:37:00) [7]

Смортя, что хочешь передать. Можно просто задать глобальную переменную на форме "открывателе". Дать ей какое-то значение перед открыванием открываемой ))))))

Type
...
end;
Var
 Myparameter: String;

Implementation
uses
 unit unit2;
{$R *.dfm}

procedure Tfrm_rev.button1Click(Sender: TObject);
begin
 MyParameter := 'Hello World';
 Application.CreateForm(TForm2, Form2);
end;

а в открываемой:

Type
...
end;

Implementation
uses
 unit unit1;
{$R *.dfm}
...
procedure Tfrm_rev.button1Click(Sender: TObject);
begin
 ShowMessage(Myparameter);
end;

---

Плохиш   (2007-02-12 11:49:00) [8]

> Glushenko   (12.02.07 11:15)  

Открывающая форма говорит открываемой - Это я тебя открыла, ферштейш, да. А открываемая форма от родителя(программера) знает, что общаться с открывшей её формой она может по определённому протоколу (используя определённые методы/свойства), вот она и использует этот протокол для обмена данными с открывшей её формой по необходимости.

PS. АФФтар, как думаешь наука эта "Программирование" это аб чём, ваще?

---

Reindeer Moss Eater   (2007-02-12 11:41:00) [9]

function myfunc(myparameter : mytype) : myresulttype;

---

Наверх