class TFormObject
{
public:
TImage *pict;
void OnMD(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
void OnMM(TObject *Sender, TShiftState Shift, int X, int Y);
void OnMU(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
};
описан в Unit1.h
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int X0,Y0;
bool move=false;
void TFormObject::OnMD(TObject *Sender, TMouseButton Button, TShiftState Shift, int X,int Y)
{if (Button !=mbLeft) return;
X0=X;
Y0=Y;
move=true;
((TControl*)Sender)->BringToFront();
};
//--------------------------------------------
void __fastcall TForm1::ToolButton1Click(TObject *Sender)
{
TFormObject obj;
if(ComboBox1->ItemIndex==0)
{
obj.pict= new TImage(Form1);
obj.pict->Picture->LoadFromFile("pict//ico_1//krivo.ico");
obj.pict->Parent= Form1;
obj.pict->AutoSize=true;
obj.pict->Left=15;
obj.pict->Top=40;
obj.pict->Show();
obj.pict->OnMouseDown=OnMD;
};
почему компилятор ругается на строчку
obj.pict->OnMouseDown=OnMD;
А ругается вот так:
Undefined symbol 'OnMD'
