Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > fsMDIChild и fsNormal

Автор: Чердак 12.5.2008, 02:35

Доброе время суток.
В фомре типа fsMDIChild создается обычная форма:

Код


procedure TfrChildCreatePlZak.BitBtn1Click(Sender: TObject);
begin
Application.CreateForm(TfrAddM, frAddM);
 frAddM.Visible:=true;
 frAddM.Edit1.Text:=SG1.Cells[1,SelRowSG1];
 frAddM.Label2.Caption:=SG1.Cells[0,SelRowSG1];
end;

После в TfrAddM пытаюсь обратиться к визуальным компонентам первой формы типа fsMDIChild :

Код


procedure TfrAddM.Button1Click(Sender: TObject);
begin
frChildCreatePlZak.Edit1.Text:=Edit1.Text;
Close;
end;

вылетает ошибка "Аксес виолейшин...", т.е. обращение к памяти вызвало ошибку, т.е. TfrChildCreatePlZak - не видится из обычной формы... Как тогда работать??? smile

Спасибо за внимание.

Автор: Frees 12.5.2008, 09:02

а форму TfrChildCreatePlZak ты как создавал?

Автор: Чердак 12.5.2008, 20:39

Цитата(Frees @ 12.5.2008, 09:02

)

а форму TfrChildCreatePlZak ты как создавал?

В главной форме:

Код


procedure TfrMain.N7Click(Sender: TObject);
var Child: TfrChildCreatePlZak;
begin
 Child := TfrChildCreatePlZak.Create(Application);
end;

Автор: Frees 13.5.2008, 06:14

ты форму создаеш для переменной Child
а обращаться пытаешся к frChildCreatePlZak
в итоге в переменной frChildCreatePlZak ничего нет из за этого и акцесс виолейшен

Код


procedure TfrMain.N7Click(Sender: TObject);
begin
 frChildCreatePlZak := TfrChildCreatePlZak.Create(Application);
end;