void __fastcall TForm1::FuncionTemporal(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
//Esta es la funcion que vas a asignar a tu objeto creado en tiempo
//de ejecucion
//Pon el codigo que quieras
ShowMessage( "funcion temporal" );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Aqui es donde creas el objeto en tiempo de ejecucion
TLabel *Prueba = new TLabel(this);
Prueba->Parent = this;
Prueba->Caption = "vatoicc";
Prueba->OnMouseDown = FuncionTemporal;
}
//---------------------------------------------------------------------------