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

Вниз

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

 
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.


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


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


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


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


> Pavel   (20.02.09 14:46) [8]

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


 
Ega23 ©   (2009-02-20 15:30) [11]


> Pavel   (20.02.09 14:46) [8]


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


 
Юрий Зотов ©   (2009-02-20 16:39) [12]

> Pavel   (20.02.09 14:46) [8]

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



Страницы: 1 вся ветка

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

Наверх





Память: 0.47 MB
Время: 0.008 c
3-1219063290
kirillrepin
2008-08-18 16:41
2009.04.12
Заполнение DBListBox при помощи StoredProc


15-1234284520
Finansist
2009-02-10 19:48
2009.04.12
Кризис


2-1235433008
Biternieks
2009-02-24 02:50
2009.04.12
Как развернуть бит ?


2-1235338462
TStas
2009-02-23 00:34
2009.04.12
Как перевести время из TSearchRec в нормальное TDateTime?


2-1235455898
девушка
2009-02-24 09:11
2009.04.12
DateTimePicker





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский