13,822
社区成员
发帖
与我相关
我的任务
分享
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.hpp" //添加pas 编译生成的 .hpp文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ShowMessage(Form2->Str);
}
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Str: AnsiString; //Add
end;