---h文件

#ifndef Unit2H

#define Unit2H

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Dialogs.hpp>

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

struct TMyevent

{

 public:

 int a;

 void __fastcall Button1Click(TObject *Sender);



};



 struct TMyevent myevent;

#endif



----cpp文件





#pragma hdrstop



#include "Unit2.h"



#pragma package(smart_init)



void __fastcall TMyevent::Button1Click(TObject *Sender)

{

 ShowMessage("hellO");

}

#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

}



void __fastcall TForm1::FormCreate(TObject *Sender)

{

   Button1->OnClick = myevent.Button1Click;

}