I'm wondering...
why
  void __fastcall TChild::CopyImageClick(TObject *Sender)
  {
    TChild* child = new TChild(this);
    child->Image->Picture = this->Image->Picture;
    child->ClientWidth = child->Image->Picture->Width;
    child->ClientHeight = child->Image->Picture->Height;
    child->Caption = this->Caption;
    child->Show();
  }
and
  void __fastcall TImageTool::FileOpenClick(TObject *Sender)
  {
   if (OpenDialog->Execute())
   {
    if (NumberOfPictures < 12)
    {
     TChild* child = new TChild(this);
     Picture[NumberOfPictures++] = child;
     child->Image->Picture->LoadFromFile(OpenDialog->FileName);
     child->ClientWidth = child->Image->Picture->Width;
     child->ClientHeight = child->Image->Picture->Height;
     child->Caption = OpenDialog->FileName;
     child->Show();
    }
   }
  }
work perfectly well (loading a new picture or copying an existing one),
but
  void __fastcall TImageTool::Kopie1Click(TObject *Sender)
  {
    TChild* child = new TChild(ActiveMDIChild);
    child->Image->Picture = ActiveMDIChild->Image->Picture;
    child->ClientWidth = ActiveMDIChild->Image->Picture->Width;
    child->ClientHeight = ActiveMDIChild->Image->Picture->Height;
    child->Caption = ActiveMDIChild->Caption;
    child->Show();
  }
and
  void __fastcall TImageTool::Kopie1Click(TObject *Sender)
  {
    TChild* child = new TChild(this);
    child->Image->Picture = ActiveMDIChild->Image->Picture;
    child->ClientWidth = ActiveMDIChild->Image->Picture->Width;
    child->ClientHeight = ActiveMDIChild->Image->Picture->Height;
    child->Caption = ActiveMDIChild->Caption;
    child->Show();
  }
fail (both with an "'Image' is not a Member of 'Forms:TForm'"-Error)?
Knut
--- Yuppie v2.11
---------------