Club Builder

[paco]

hola a todo
me prodrian ayudar tengo de visualizar una imagen y esa imagen la tengo que visualizarla varias veces en ventanas distintas, pero no se como hacerlo saque un ejemplo del builder un programa que se llama viewpict, pero tiene errores alguien podia decirme como le hago.

gracias por adelantado

[paco]

este es el codigo

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ViewMain.h"
//me marca un error en la siguiente linea
#include "MDIChild.h"
#include "PVAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Open1Click(TObject *Sender)
{
if(OpenDialog->Execute())
{//en la siguiente linea me marca un error
TChild* child = new TChild(this);
child->Image->Picture->LoadFromFile(OpenDialog->FileName);
child->ClientWidth = child->Image->Picture->Width;
child->ClientHeight = child->Image->Picture->Height;
child->Caption = ExtractFileName(OpenDialog->FileName);
child->Show();
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SaveAs1Click(TObject *Sender)
{
TChild* child = dynamic_cast<TChild*>(ActiveMDIChild);
if(!child)
return;
if(SaveDialog->Execute())
{
child->Image->Picture->SaveToFile(SaveDialog->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Tile1Click(TObject *Sender)
{
Tile();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Cascade1Click(TObject *Sender)
{
Cascade();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArrangeAll1Click(TObject *Sender)
{
ArrangeIcons();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::About1Click(TObject *Sender)
{
AboutBox->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::New1Click(TObject *Sender)
{

}
//---------------------------------------------------------------------------
Child*

MUCHAS GRACIAS POR SU AYUDA

[joseluisbz]

bueno yo hice esa aplicación hace dos años...
Quisiera saber que errores saca.

joseluisbz@bigfoot.com