1

Embarcadero XE-5 入门,对象模型让我很困惑。我的项目从一开始就涉及 Canvas,所以我的 hello world 是画一两条线。设置一个SDI项目,直接从C++ builder帮助中添加了一个fastcall,但无法编译。所有示例中都使用了 Form1,但我实例化它的努力没有奏效。我试图以各种方式声明 Form1,但没有成功。

谁能指出我的错误,好吗?

// ----------------------------------------------------
#include <vcl.h>
#pragma hdrstop>  
#include <tchar.h>
//-----------------------------------------------------
USEFORM("SDIMAIN.CPP", SDIAppForm);
USEFORM("ABOUT.CPP", AboutBox);
//-----------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
    {
    Application->Initialize();
    Application->CreateForm(__classid(TSDIAppForm), &SDIAppForm);

 // ** Following line gives error: Form1 undefined. ** 
     Application->CreateForm(__classid(TCanvas), &Form1);   
     Application->CreateForm(__classid(TAboutBox), &AboutBox);
     Application->Run();

     return 0;
     }
 //------------------------------------------------------

/*  SDIMAIN - copied from the help screens  */
void __fastcall TForm1::FormPaint(TObject *Sender) 
{
Canvas->MoveTo(0,0);
Canvas->LineTo(ClientWidth, ClientHeight);
Canvas->MoveTo(0, ClientHeight);
Canvas->LineTo(ClientWidth, 0);
}
4

1 回答 1

1

您不TApplication::CreateForm()用于创建TCanvas对象。改为:__classid(TCanvas)___classid(TForm1)

// ----------------------------------------------------
#include <vcl.h>
#pragma hdrstop>  
#include <tchar.h>
//-----------------------------------------------------
USEFORM("SDIMAIN.CPP", SDIAppForm);
USEFORM("Unit1.cpp", Form1);
USEFORM("ABOUT.CPP", AboutBox);
//-----------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    Application->Initialize();
    Application->CreateForm(__classid(TSDIAppForm), &SDIAppForm);
    Application->CreateForm(__classid(TForm1), &Form1);   
    Application->CreateForm(__classid(TAboutBox), &AboutBox);
    Application->Run();
    return 0;
}
//------------------------------------------------------

当然,这需要你有一个TForm1类开始:

文件 > 新建 > VCL 表单

于 2016-08-22T21:51:04.243 回答