Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Pavel © (2009-02-20 14:12:00)
Как мне значение переменной передать из родительской формы в модальную?
Заранее благодарю за ответы.

Юрий Зотов (2009-02-20 16:39:00) [1]
> Pavel (20.02.09 14:46) [8]

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

Ega23 (2009-02-20 15:30:00) [2]

> Pavel (20.02.09 14:46) [8]

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

Плохиш (2009-02-20 15:21:00) [3]

> Pavel (20.02.09 14:46) [8]

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

Сергей М. (2009-02-20 15:08:00) [4]

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

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

Alexandra (2009-02-20 14:46:00) [5]
т е в конце
Edit9.Text := IntToStr(vrem);

Pavel (2009-02-20 14:46:00) [6]
Есть форма Form1, в ней переменной s присваиваю значение. Затем открываю вторую форму Form2 так:
Form2:=TForm2.Create(self);
Form2.ShowModal;
И теперь во второй форме переменнй t мне нужно присвойть значение переменной s.

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

Edit9.Text := IntToStr(GridID);

end;

Dennis I. Komarov (2009-02-20 14:38:00) [8]

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

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

Pavel (2009-02-20 14:35:00) [9]
Описка, извените. Как мне переменную вызвать в модальной форме?

Pavel (2009-02-20 14:34:00) [10]
В родительской я ее опубликовал и присвоил значение в обработчике. Как мне вызвать ее в родительской форме?

Alexandra (2009-02-20 14:24:00) [11]
в родительской опубликуй её :
private
{ Private declarations }
Fvrem : integer;
public
property vrem : integer read Fvrem write Fvrem;

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

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

Ega23 (2009-02-20 14:21:00) [12]
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;

Наверх

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