简单的问题，解决就结贴

cc_sky 2004-11-13 05:23:55

小弟刚刚开始学C++，问题很多，而分数有限，只好一次问很多了！！
1.我设计一个MDI窗体，然后新建一个FORM，我感觉没有问题了，怎么运行不成功啊？？
FORM1:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NEWClick(TObject *Sender)
{
TForm2* clientForm;
clientForm = new TForm2(Application);
clientForm->Capition="未命名"+IntToStr(MDIChildCount);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EXITClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CASCADEClick(TObject *Sender)
{
Cascade();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TILEClick(TObject *Sender)
{
Tile();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ARRANGEICONSClick(TObject *Sender)
{
ArrangeIcons();
}
//---------------------------------------------------------------------------

FORM2:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree:
}
//---------------------------------------------------------------------------

void __fastcall TForm2::EDITClick(TObject *Sender)
{
Canvas->TextOutA(10,10,"MID的子窗口")；
}
//---------------------------------------------------------------------------
是那里有问题啊？？

2.窗体的背景可以改变么？就是用图片代替，如果可以，如何代替啊？

...全文

76 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

特招 2004-11-13

打赏
举报

按 Shift+Ctrl+F11 auto-create forms 只选择一个主form

sfengnet 2004-11-13

打赏
举报

MDI窗口设背景图片
Graphics::TBitmap * bmp;
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
bmp=new Graphics::TBitmap;
bmp->LoadFromFile("F:\\My Pictures\\111.bmp");
Canvas->Draw(0,0,bmp);
}