Работа с модальным формами

← →
Pavel (2009-02-20 14:12) [0]

Как мне значение переменной передать из родительской формы в модальную?
Заранее благодарю за ответы.

← →
Ega23 © (2009-02-20 14:21) [1]

type TModalForm = class (TForm) public property SomeValue : TSomeType read ... write ....; end; var frm : TModalForm; begin Application.CreateForm(TModalForm, frm); try frm.SomeValue := .... frm.ShowModal; finally frm.Free; end; end;

← →
Alexandra (2009-02-20 14:24) [2]

в родительской опубликуй её :
private
{ Private declarations }
Fvrem : integer;
public
property vrem : integer read Fvrem write Fvrem;

тут же в каком нить обработчике
присвой данные (ну к примеру):
procedure TNPSForm.BtnChangeClick(Sender: TObject);
begin
edFind.text := IntToStr(vrem)
end;

а в модальной
вызывай...

← →
Pavel (2009-02-20 14:34) [3]

В родительской я ее опубликовал и присвоил значение в обработчике. Как мне вызвать ее в родительской форме?

← →
Pavel (2009-02-20 14:35) [4]

Описка, извените. Как мне переменную вызвать в модальной форме?

← →
Dennis I. Komarov © (2009-02-20 14:38) [5]

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

Телепатор мне подсказывает, что формы тут вообще не причем, или опишите подробно что Вам требуется...

← →
Alexandra (2009-02-20 14:44) [6]

ну в обработчике и вызывайте ...
procedure TNPSForm.BtnChangeClick(Sender: TObject);
begin
with fmAdd ( <- это ваша модальная форма) do
begin
if not Assigned(fmAdd) then
Application.CreateForm(TfmAdd, fmAdd);

Edit9.Text := IntToStr(GridID);

end;

← →
Alexandra (2009-02-20 14:46) [7]

т е в конце
Edit9.Text := IntToStr(vrem);

← →
Pavel (2009-02-20 14:46) [8]

Есть форма Form1, в ней переменной s присваиваю значение. Затем открываю вторую форму Form2 так:
Form2:=TForm2.Create(self);
Form2.ShowModal;
И теперь во второй форме переменнй t мне нужно присвойть значение переменной s.

> Есть форма Form1, в ней переменной s

В форме нет никаких переменных.
Переменные есть в юните.

> Pavel (20.02.09 14:46) [8]

Назови хотя бы одну причину, что бы тебе отвечали. Ответов ты всё равно не читаешь или не понимаешь...

> Pavel (20.02.09 14:46) [8]

Мда... Клинический случай...

> Pavel (20.02.09 14:46) [8]

Какие переменные имеются в виду - поля форм или глобальные переменные модулей?

Работа с модальным формами Найти похожие ветки