Скачать: CL | DM;

И снова MDI (передача переменных)?   Найти похожие ветки 

← →
samumka ©   (2004-10-26 09:01) [0]

Итого. Имеем форму MDIForm_1. Из неё вызывается MDIChild_1, на которой расположен TEdit_1. Из MDIChild_1 вызывается форма Normal_1, в которой производятся некотороые действия, результатом которых является переменная String_1. Вопрос: каким образом передать String_1 в MDIChild_1.TEdit_1.Text?

MDIChild_1.TEdit_1.Text:=String_1 вызывает ошибку.
Спасибо.

---

← →
Gero ©   (2004-10-26 09:03) [1]

> MDIChild_1.TEdit_1.Text:=String_1 вызывает ошибку

Какую?

> Из неё вызывается MDIChild_1
> Из MDIChild_1 вызывается форма Normal_1

Что значит "вызывается"?

---

← →
samumka ©   (2004-10-26 09:26) [2]

>> MDIChild_1.TEdit_1.Text:=String_1 вызывает ошибку

>Какую?

EAccessViolation по такому-то адресу.

>Что значит "вызывается"?
Прошу прошения. Создается
TMDIChild_1.Create(Application);

TNormal_1.Create(Application).ShowModal;

---

← →
ЮЮ ©   (2004-10-26 09:39) [3]

TNormal_1.Create(Application).ShowModal;

как всё запущено

var
 normal: TNormal;
begin
 normal := TNormal_1.Create(nil);
 try
   normal.ShowModal;
   if normal.moadResul = mrOk then begin
     Edit_1.Text := normal.Edit_1.Text;
   end;
 finally
   normal.Free;
 end;
end;
end;

З.Ы. и накаких MDIChild_1. такой глобвльной переменной не должно быть вообще

---

← →
ЮЮ ©   (2004-10-26 09:41) [4]

var normal: TNormal_1;

---

← →
begin...end ©   (2004-10-26 09:41) [5]

> normal.ShowModal;
>    if normal.moadResul = mrOk

if normal.ShowModal = mrOK

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c