Как передавать переменные из одной формы в другую?

← →
lobach © (2006-10-28 20:26) [0]

Здравствуйте мастера!!
У меня такой вопрос:
К примеру есть две формы. На одной лежит кнопка и есть переменная.
На другой edit и кнопка.
При нажатии на кнопку в первой форме должна открытся вторая, в которой я ввожу значение переменной из первой формы. А при нажатии кнопки на второй форме значение присваивается и форма закрывается.
Мои вопросы:
1.Как определить с помощью какой кнопки была открыта вторая форма (если у меня их 10 штук).
2.Как передать значение переменной из одной формы в другую.

← →
vidiv © (2006-10-28 20:37) [1]

var frm:TForm2;

begin
frm := TForm2.Create(self);
frm.Edit1.Text := LocalObjectVariable;
if frm.ShowModal=mrOk then
LocalObjectVariable := frm.Edit1.Text;
frm.free;
end;

мне кажеться тебе это надо...
только учти, что на второй форме должна быть как минимум одна кнопка с параметром ModalResult равным mrOk

← →
DiamondShark © (2006-10-28 20:43) [2]

> 1.Как определить с помощью какой кнопки была открыта вторая
> форма (если у меня их 10 штук).

У обработчика события OnClick есть параметр Sender.

> 2.Как передать значение переменной из одной формы в другую.

Через public поля/свойства "второй" (по приведённому описанию) формы.

← →
Anatoly Podgoretsky © (2006-10-28 21:35) [3]

Очень странный алгоритм, что то здесь не так.

телепатирую: автор не прописал взаимные uses.
в остальном -- полностью согласен с [3].
2lobach: переработай. форма ввода вообще не должна знать, от кого получила значение. и кому его отдавать. значение должен забирать тот, кому оно нужно.

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