MDI форма

[mercury]

Здравствуйте, коллеги.

Столкнулся с проблемой:

Интерфейс программы основан на MDI.
На одной из дочерних форм (fsMDIChild) вызывается фрейм...

Проблема в том что из этого фрейма я не могу "достучаться" до формы на которой он расположен (fsMDIChild), хотя без проблем "достукивается" до главной (fsMDIForm)... (см. вложенный файл)

Код без проблем компелируется, но при исполнении возникает ошибка:

Project Project1.exe raised exception class EAccessViolation with message 'Access Violation at address 0045436D in module 'Project1.exe'. Read address 000002F8'. Process stopped. Use Step or Run to continue.

Как быть в данной ситуайции?

[psycho-coder]

Ты создаешь форму, но ни где не сохраняешь ее))

  // создание новой формы
  if myForm = nil
    then Application.CreateForm(FormType, myForm);

  Form3 := TForm3(myForm);
  // показываем
  myForm.WindowState := wsMaximized;
  myForm.Show;

Но, я так понял, что тебе нужно сделать это через указатели без явного присваивания и приведения типов?

[evg_m]

procedure TFrame2.Button1Click(Sender: TObject);
begin
// ShowMessage(Form3.Button1.Caption);
showmessage(tbutton(sender).Caption);
end;
//и можно убирать uses unit1, unit2
проблема в том что form3 не инициализированная переменная, но она нам на самом деле и не нужна. Чтобы узнать какая кнопка была нажать и существует параметр Sendder

[psycho-coder]

Сообщение от evg_m

procedure TFrame2.Button1Click(Sender: TObject);
begin
// ShowMessage(Form3.Button1.Caption);
showmessage(tbutton(sender).Caption);
end;
//и можно убирать uses unit1, unit2

Неа) Не прокатит

[mercury]

Сообщение от psycho-coder

Ты создаешь форму, но ни где не сохраняешь ее))

Каким образом мне ее сохранить?

[mercury]

Вот верное решение:

TForm3(Form1.ActiveMDIChild).Button 1.Caption;

Спасибо всем, кто принимал обсуждение

[evg_m]

Вот верное решение:

TForm3(Form1.ActiveMDIChild).Button 1.Caption;

вернее будет верным до тех пор пока
не решишь использвать данный frame где-нибудь еще НО
где главная форма не Form1
где хозяин frame не Tform3
где главная форма не MDI
где вызов идет не через нажатие button1

TButton(sender).Caption
Sender специально для того что ЗНАТЬ кто конкретно это вызвал.
не требуюет никаких сведений о внешних формах form1, Tform3, MDIChild